Prueba con esto:
Dim dbDbf As Database, dbMdb As Database
Dim rsDbf As Recordset, rsMdb As Recordset
Set dbDbf = OpenDatabase("C:\BasesDBF", False, False, dBASE IV;")
' "C:\BasesDBF" es el directorio donde tienes la dbf
Set dbMdb = OpenDatabase("NombreMDB")
' "NombreMDB es el nombre de la mdb Access
Set rsDbf = dbDbf.OpenRecordset("ArchivoDbf")
Set rsMdb = dbMdb.OpenRecordset("TablaMdb")
' "ArchivoDbf" es el nombre del fichero dbf y "TablaMdb" la tabla de la base Access (Ambas deben tener la misma estructura)
rsDbf.MoveFirst
Do until rsDbf.EOF
rsMdb.AddNew
rsMdb,Fields(0) = rsDbf.Fields(0)
rsMdb.Fields(1) = rsDbf.Fields(1)
' así hasta el final de los campos
rsMdb.Update
rsDbf.MoveNext
Loop
Espero que te sea de utilidad, perdona si quizá he cometido algún error de síntaxis, pero es que lo he escrito directamente.
A tu disposición para cualquier aclaración. Saludos
