Set obj_record_set = CreateObject("ADODB.RECORDSET")   
                MsgBox "33"        
str_sql="INSERT INTO [dbo].[WorkParam] ([ProductID], [WorkStationID], [StartTime], [EndTime], [TimeCount], [CountInOnce], [IsQualified]) VALUES ('"&code_ID1&"','"&station_ID&"','"&date_time&"','"&date_time&"','"&work_time&"','"&Count_InOnce.Value&"','"&work_state1&"'),('"&code_ID2&"','"&station_ID&"','"&date_time&"','"&date_time&"','"&work_time&"','"&Count_InOnce.Value&"','"&work_state2&"') select @@IDENTITY AS New"
                obj_record_set.open str_sql,obj_connection,1,1   
             Rs=obj_record_set("New")      

这段代码Rs=obj_record_set("New")      执行不过去是什么原因呢 请大神指教

select @@IDENTITY AS New最后有一条这个啊