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)