Через DAO:

Dim db As Database, td As TableDef, rs As Recordset

' База данных - каталог, где лежит наша таблица
Set db = OpenDatabase("C:\", True, False, "FoxPro 3.0;")

' Создадим таблицу
Set td = db.CreateTableDef("Test")
td.Fields.Append td.CreateField("Index", dbLong)
td.Fields.Append td.CreateField("Data", dbText, 64)
' Теперь она будет сохранена в файле C:\Test.dbf
db.TableDefs.Append td

' Откроем только что созданную таблицу для чтения
Set rs = db.OpenRecordset("Test")
rs.AddNew
rs!Index = 1
rs!Data = "ABC"
rs.Update
rs.MoveLast
MsgBox rs.RecordCount

rs.Close
db.Close