Автоматическая загрузка внешних данных в бд access

Private Sub Кнопка0_Click()
DoCmd.TransferSpreadsheet acImport, 10, "Тест", "C:\Users\maslov.vladislav\Desktop\импорт в бд  access\Test.xlsx", True, ""
End Sub

Private Sub Кнопка0_Click()
DoCmd.TransferSpreadsheet acImport, 10, "Тест", "C:\Users\maslov.vladislav\Desktop\импорт в бд  access\Test.xlsx", True, ""
 
Dim mydb As Database 
Dim rst As Recordset 
Set mydb = CurrentDb() 
Set rst = mydb.OpenRecordset("tblOrderID") 
 
End Sub

Private Sub cmdTest01_Click()
'Импорт Данных
'--------------------------------------------------------------------------
Dim rst As Recordset
On Error GoTo cmdTest01_Click_Err
 
'Импорт файла
    DoCmd.TransferSpreadsheet acImport, 10, "Тест", "C:\Users\maslov.vladislav\Desktop\импорт в бд access\Test.xlsx", True, ""
 
    Set rst = CurrentDb.OpenRecordset("tblOrderID", dbOpenSnapshot)  'Открытие - Только на просмотр (так быстрее)
    With rst
        Do Until .EOF = True 'Цикл до конца таблицы
            'Тут операции с записью:
            '... считываение  данных куда-то там ...
            .MoveNext
        Loop
    End With
 
 
cmdTest01_Click_Bye:
    On Error Resume Next
    rst.Close 'Закрытие и обнуление обьекта (по любому)
    Set rst = Nothing
 
    Exit Sub
 
cmdTest01_Click_Err:
    MsgBox "Error: " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in Sub: cmdTest01_Click in module: Form_frmTest", vbCritical, "Error in Application: " & Err.Source
    Err.Clear
    Resume cmdTest01_Click_Bye
End Sub