попробуй так:
1).
В "референсах" ссылку на "Microsoft DAO 3.5 Object Library"

2).
Public MyWorkSpace As Workspace
Public MyDataBase As Database
Public MyTabDef As TableDef
Public BasePath As String
Public GlobalPathDBF As String
Public MyRecordset as Recordset

3).
Set MyWorkSpace = DBEngine.Workspaces(0)
BasePath = App.Path & "\test.mdb"
If Dir(BasePath) <> "" Then
Kill BasePath
End If

4).
GlobalPathDBF = "C:\DBF\"
Set MyDataBase = MyWorkSpace.CreateDatabase(BasePath, dbLangCyrillic)
Set MyTabDef = MyDataBase.CreateTableDef("MyDBFDocument")
MyTabDef.Connect = "FoxPro 2.6;DATABASE=" & GlobalPathDBF
MyTabDef.SourceTableName = "имябазыданных.dbf"
MyDataBase.TableDefs.Append MyTabDef

5).
Set MyRecordset = MyDataBase.OpenRecordset("select * from MyDBFDocument",dbOpenDynaset)

6).
Ну а дальше заполняй, например, "сетку" этими записями...