With CurrentDb Set TB = .CreateTableDef(TABLE_NAME) TB.Connect = "dBase 5.0;DATABASE=" & FOLDER & "\" TB.SourceTableName = TABLE_NAME .TableDefs.Append TB End With
http://www.sql.ru/forum/1304866/linkovka-dbf-fayla-k-baze