求助，关于DBF转换成MDB

Question

求助，希望实现功能：现有一数据库test.dbf(可为任一数据库名）,为FOXPRO2.5格式，能否创建一个新的MDB库，并在MDB库中新建一个同test。dbf同名的表，并将test.dbf的内容复制到该表中！请高手指教！谢谢各位!

Answer 1

求兄弟们给个答案，主要是关于MDB的创建和库结构的复制，再次谢大家了！

Answer 2

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