Private Sub Command1_Click() 'turn *.dbf to *.mdb
Dim dbDBF As Database ' DBF文件
Dim dbmdb As String ' MDB文件
For i = 0 To dbDBF.TableDefs.Count - 1
dbDBF.Execute ("SELECT * INTO " + dbDBF.TableDefs(i).Name + " IN '" + dbmdb + " ' FROM " + dbDBF.TableDefs(i).Name)
Next
End Sub