Private Sub Command1_Click() 'suppose your test.dbf locate in "d:\dbfs\"
trans "d:\dbfs\", "d:\mymdb.mdb"
End Sub
Sub trans(ByVal dbfpath As String, ByVal mymdb As String)
Dim mydbf As Database
Set mydbf = OpenDatabase(dbfpath, False, False, "FoxPro 2.5;")
Dim i As Long
For i = 0 To mydbf.TableDefs.Count - 1
mydbf.Execute ("SELECT * INTO " & mydbf.TableDefs(i).Name & " IN '" & mymdb & "' FROM " & mydbf.TableDefs(i).Name)
Next
End Sub