ник: osmor
Если установлен драйвер OLEDB для Foxpro, то попробуте так:
Dim con As ADODB.Connection
Dim strConString As String
Set con = New ADODB.Connection
strConString = "Provider=Microsoft OLE DB Provider for Visual FoxPro;Data Source=C:\Путь к базе"
With con
.Open connString
.Execute "PACK DBF C:\Путь к базе\файл.dbf"
.Close
end with
con = Nothing