Dim basa As String:	basa = "trpr"
Dim DB As DAO.Database
Dim QD As DAO.QueryDef
Dim TB As DAO.TableDef
Set DB = OpenDatabase(App.Path & "Справочники", True) ' открываю Access-овскую базу монопольно

' прилинковываю DBF
Set TB = DB.CreateTableDef(basa)
TB.Connect = "dBase III;DataBase=" & App.Path
TB.SourceTableName = basa
DB.TableDefs.Append TB
Set TB = Nothing

' теперь хочу добавить записи в DBF из Таблицы1
sSQL = "INSERT INTO basa ( DETAL ) SELECT Таблица1.DETAL FROM Таблица1"
Set QD = DB.CreateQueryDef("Добавить_в_trpr", sSQL)
QD.Execute dbDenyWrite

QD.Close:	Set QD = Nothing
DB.Close:	Set DB = Nothing