Visual Basic - Migrar tablas dbf a access desde visual basic

Hola a todos:

Quisiera saber si me pueden ayudar a crear o mandarme un programa(mucho mejor) en visual basic que importe tablas dbf a access.
Estare muy agradecido por todas sus respuestas enviadas

Global RutaDBF As String----solo path que contiene la dbf
Global ArchivoDBF As String---nombre de la dbf
Global RutaBaseAccess As String --path\nombrebase.mdb-----
Global TablaAccess As String ---solo la tabla

---obviamente deberás llenar estas variables como corresponde-----


Dim Base As Database
Set Base = OpenDatabase(RutaDBF, False, False, "Dbase IV;")

Base.Execute "Select * Into " & TablaAccess & " IN '" & RutaBaseAccess & "' from " & ArchivoDBF

---la tabla access no debe existir en la mdb
suerte ¡¡¡¡