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")      执行不过去是什么原因呢 请大神指教

sql 命令没看懂。
弱弱的问句，你的查询动词是 INSERT ，执行查询后是没有结果可供返回的，你的 obj_record_set 后面还要怎么操作。
我记得除下 select 查询可以打开得到 record 外，其他查询都是直接使用连接来直接执行。

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