MS Access и DBF файлы

'CurrentDb.Execute "SELECT * INTO имя_таблицы FROM имя_файла_dbf IN 'C:\Temp' 'dBase IV;'"
CurrentDb.Execute "SELECT * INTO имя_таблицы FROM имя_файла_dbf IN '" & MyPath & "' 'dBase IV;'"

Public Sub Link_DBF()
On Error GoTo err1
    Dim nam1 As String:     nam1 = "имя dbf файла"  ' без расширения
    Dim pth1 As String:     pth1 = Access.CurrentProject.Path
    Dim dbf1 As String:     dbf1 = pth1 & "\" & nam1 & ".dbf"
    
    If TableExist(nam1) Then DoCmd.DeleteObject acTable, nam1
    
    DoCmd.TransferDatabase acLink, "dBase III", pth1, acTable, nam1 & ".dbf", nam1
    Exit Sub
err1:
    MsgBox Err.Description
End Sub

Function TableExist(ByVal TableName As String) As Boolean
    TableName = LCase(TableName)
    TableExist = False
    For i = 0 To Application.CurrentData.AllTables.Count - 1
        If LCase(Application.CurrentData.AllTables.Item(i).Name) = TableName Then
            TableExist = True
            Exit For
        End If
    Next i
End Function

Private Sub Кнопка0_Click()
    Link_DBF "C:\2009\09", "basa123"
    Link_DBF "C:\2009\09", "trpr2"
    Link_DBF "C:\2009\09", "some21"
End Sub