rst.Open "SELECT * FROM T3 ", _
                    CnBase, adOpenDynamic, adLockBatchOptimistic
    
                    rst.AddNew: rst("P1") = rst!P1 '(из Т2)
                                     rst("P2") = rst!P2 '(из Т2)
                                     rst("P2") = "User"
                                   
    
                    rst.UpdateBatch (adAffectAll)
                    
                    rst.Close
                    Set rst = Nothing

                    rst.AddNew: rst("P1") = rst!P1 '(из Т2)
                                     rst("P2") = rst!P2 '(из Т2)
                                     rst("P2") = "User"

rst.Open "SELECT * FROM T3 ", _
                    CnBase, adOpenDynamic

do until rst.eof
   rs2.adnew 
   '.....
   rs2.update
loop

rs2.updatebatch

 SELECT * INTO #table FROM OPENROWSET (......)

CnBase.Execute "SELECT * INTO #tmpsw " & _
                    "FROM OPENROWSET ('MSDASQL','Provider={Microsoft dBase Driver (*.dbf)};Persist Security Info=False;DSN=swlist;Extended Properties=DBASE 5;','SELECT * FROM sw_list') "

    Set cn_Sprv = CreateObject("ADODB.Connection")
    cn_Sprv.CommandTimeout = 120                    
    cn_Sprv.Open ("File Name=" & SprPth)

    Set rst_sprv = New adodb.Recordset

 rst_sprv.Open "SELECT ID,CODE,KOD_BANK,KOD_BRANCH,NAME_SWIFT,ISO_DIG,ISO_LAT2,ISO_LAT3,SUBTYPE,CO_TYPE,CB_DATE,CE_DATE " & _
                  "FROM SW_LIST ORDER BY CODE, CB_DATE ", _
    cn_Sprv, adOpenStatic, adLockReadOnly

Set cn_Sprv = CreateObject("ADODB.Connection") 
    cn_Sprv.CommandTimeout = 120                    
    cn_Sprv.Open ("File Name=" & SprPth)

CnBase.Execute "SELECT * INTO #tmpsw " & _
                    "FROM OPENROWSET ('" & cn_Sprv & "','SELECT * FROM sw_list') "

CnBase.Execute "SELECT * INTO #tmpsw " & _
                    "FROM OPENROWSET ('"  & cn_Sprv.ConnectionString& "','SELECT * FROM sw_list') "