VBA Access Импорт таблиц

[Ethex]

Доброго времени суток
Хочу сделать опцию импорта таблиц из одного файла аксес в другой (тот, в котором и находится юзерформа)
Пробую код:

Public Sub ImpTbl()
Dim db As DAO.Recordset
Dim tdf As DAO.TableDef
Dim pth As String
   If Me.Поле1 <> 0 Then
   pth = Me.Поле1
   Set db = OpenDatabase(pth)
      For Each tdf In db
         If Left(tdf.Name, 4) <> "MSys" Then
         Access.DoCmd.TransferDatabase acImport, "Microsoft Access", pth, acTable, tdf.Name, tdf.Name, False
         End If
      Next tdf
   db.Close: Set db = Nothing
   Else
   MsgBox "блаблабла"
   End If
End Sub

Изначально в строке For было

For Each tdf In db.TableDefs

Происходила ошибка компиляции - ругался на .TableDefs. Попробовал сделать как в коде выше. Компиляция прошла. Однако при выполнении получаю type mismatch в строке

Set db = OpenDatabase(pth)

Подскажите, как излечить?
Заодно вопрос. Смогу ли я этим макросом (в его рабочьем виде, разумеется) импортить из mdb при том что он (макрос) будет запускаться в accdb?

[Ethex]

Проблема решилась
Суть её - нехрен витать в облаках во время объявления переменных