через QueryDef Dim qd As QueryDef

Set qd = db.QueryDefs("vws_doc_confirm")
ssql = "select DocID,DocState=(CASE WHEN DocState=3 then 75 else case when len(ltrim(rtrim(ISNULL(TRANS_REF,))))=0 then 10 else 9 end end), " & _
"DocNumber=TRANS_REF from APLUS.dbo.ipaq_RC_docs idoc " & _
"left join APLUS.dbo.ipaq_RC_packets packts on idoc.IDdevice=packts.DeviceID and idoc.IDtimeload=packts.TimeUnloadedData " & _
"left join APLUS.dbo.ipaq_sell_agents ta on packts.AgentID=ta.guid " & _
"where rtrim(ta.code)=" & TAsunID & " and convert(int,convert(varchar,packts.ts,112),112)>=" & df
qd.SQL = ssql

Set rs = qd.OpenRecordset(dbOpenSnapshot)