UPDATE T1
set t1.p1=t2.p1,t1.p2=t2.p2
WHERE t1.p0=t2.p0

INSERT INTO t1
(t1.p1,t1.p2)
Values (t2.p1,t2.p2)
WHERE t1.p0<>t2.p0

cn_base.Execute "INSERT INTO LOCAL TEMPORARY TABLE swtmp FROM sw_list IN 'D:\work\access\korr_otnosheniya\server\import\sprv\sw_list.dbf' 'dBASE IV;' "

cn_base.Execute "SELECT * INTO LOCAL TEMPORARY TABLE swtmp FROM sw_list IN 'D:\work\access\korr_otnosheniya\server\import\sprv\sw_list.dbf' 'dBASE IV;' "

cn_base.Execute "SELECT * INTO #swtmp " & _
                    "FROM OPENROWSET ('MSDASQL','Provider=MSDASQL.1;Persist Security Info=False;Data Source=swlist','SELECT * FROM sw_list') "

cn_base.Execute "SELECT * INTO #swtmp " & _
                    "FROM OPENROWSET ('MSDASQL','DSN=swlist','SELECT * FROM sw_list ORDER BY id') "

'Driver={Microsoft dBase Driver (*.dbf)};Persist Security Info=False;Data Source=sw_list.dbf;Initial Catalog=D:\111','SELECT * FROM sw_list ORDER BY id') "

Dim Cl_Base As Database
    Dim MainPath As String
    Dim SQLExecString As String
    
    MainPath = "D:\work\access\korr_otnosheniya\server\import\sprv"
        
    Set Cl_Base = DAO.OpenDatabase(MainPath, False, False, "dBASE IV;LANGID=0x0419;CP=866;COUNTRY=0")
    SQLExecString = "SELECT id,code,cod_bank,cod_branch, " & _
                        "name_swift,iso_dig,iso_lat2,iso_lat3, " & _
                        "subtype,co_type,cb_date,ce_date,upsize_ts " & _
                    "FROM sw_list "
    Set rst_in = Cl_Base.OpenRecordset(SQLExecString)

cn_base.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') "
                    

cn_base.commandTimeOut