Если можно по подробнее
я использовал такой экспорт
через запрос Insert в DBF с циклом рекорсета
это ввод строк(данных) в дбф из другой базы
если вопрос в этом то отпишись помогу

Дбфник с данными или без

тогда пойдет такой вариант
анализировать поля дбфник-а что бы они были не меньше чем твои вводимые поля и еще не забыть про тип данных
это можно делать по рекордсету rec.fildes.count и rec.fildes(i).type
после этого нужно вводить данные через рекорсет
типа
цикл
ацесс.рекордсет
дбф.комманд("INSERT INTO DBFTABLE (TB1,TB2,TB3) VALUES(" & ацесс.рекордсет.файлд(0).валью & "," & ацесс.рекордсет.файлд(1).валью & ","
& ацесс.рекордсет.файлд(2).валью & ")"
++++++++++++++++++
2 соединения ацесс и дбф 1 ацессс рекорсет и 1 дбф комманд
при каждом прохождении цикла вводится новая строка в дбф
на счет rec.fildes(i).type я могу прислять свою фунцию по определению типа данных
этот пример требует много ресурсов если можешь найти что нибудь по легче то используй

Public Function DataType(intType As Integer) As String
Select Case intType
Case adVarChar
DataType = "VarChar"
Case adVarWChar
DataType = "VarWChar"
Case adChapter
DataType = "Chapter"
Case adChar
DataType = "Char"
Case adWChar
DataType = "WChar"
Case adVarWChar
DataType = "VarWChar"
Case adCurrency
DataType = "Currency"
Case adInteger
DataType = "Integer"
Case adNumeric
DataType = "Numeric"
Case adDBDate
DataType = "DBDate"
Case adDate
DataType = "Date"
Case adDBTime
DataType = "DBTime"
Case adDBTimeStamp
DataType = "DBTimeStamp"
Case adDecimal
DataType = "Decimal"
Case adDouble
DataType = "Double"
Case adBoolean
DataType = "Boolean"
Case adBinary
DataType = "Binary"
Case adLongVarBinary
DataType = "LongVarBinary"
Case adBinary
DataType = "Binary"
Case adBigInt
DataType = "BigInt"
Case adSmallInt
DataType = "SmallInt"
Case adVarBinary
DataType = "VarBinary"
Case adVariant
DataType = "Variant"
Case adVarNumeric
DataType = "VarNumeric"
Case adTinyInt
DataType = "TinyInt"
Case 203
DataType = "nText"
Case 4
DataType = "Real"
Case 17
DataType = "Tinyint"
Case 72
DataType = "Uniqueidentifie"
Case 201
DataType = "Text"
Case Else
DataType = intType
End Select
End Function







Private Sub Command1_Click()
For i = 0 To Adodc1.Recordset.Fields.Count - 1
Debug.Print Adodc1.Recordset.Fields(i).Name & " " & (i), DataType(Adodc1.Recordset.Fields(i).Type)
Next i
End Sub