Visual Basic - Importar una base de datos dbf a access

hola necesito ayuda yo quiero importar una base de datos dbf a access pero mediante codigo por visual basic 6.0 osea que yo coloque un boton en visual que se llame importar y al darle click el me genere la importacion pero no se como hacerlo, yo lo se hacer en acces directamente dandole importar y busco la tabla dbf pero no lo quiero hacer asi si no por codigo y en visual basic.

por favor si alguien sabe como hacerlo me escriben y se los agradecere fulllll por que lo necesito urgente.

gracias....

Dim RutaDbf As String
Dim ArchivoDBF As String
Dim RutaAccess As String
Dim TablaAccess As String
' aquí colocas tus datos
RutaDbf = "c:\MisBasesDBF\"
ArchivoDBF = "NombreDeLaDBF.DBF"
RutaAccess = App.Path & "\MiDataBase.mdb"
TablaAccess = "MiTabla"

Dim db As DAO.Database
Set db = OpenDatabase(RutaDbf, False, False, "Dbase IV;")
db.Execute "Select * Into " & TablaAccess & " IN '" & _
RutaAccess & "' from " & ArchivoDBF

Tienes que tener una referencia a DAO en el proyecto.

como se convierte una base de datos hecha en microsoft 200 a microsoft 97

uso su codigo

Dim RutaDbf As String
Dim ArchivoDBF As String
Dim RutaAccess As String
Dim TablaAccess As String
' aquí colocas tus datos
RutaDbf = "c:\MisBasesDBF\"
ArchivoDBF = "NombreDeLaDBF.DBF"
RutaAccess = App.Path & "\MiDataBase.mdb"
TablaAccess = "MiTabla"

Dim db As DAO.Database
Set db = OpenDatabase(RutaDbf, False, False, "Dbase IV;")
db.Execute "Select * Into " & TablaAccess & " IN '" & _
RutaAccess & "' from " & ArchivoDBF



y me arroja el error ""la tabla externa no tiene el formato esperado mis tablas son hechas en clipper