Возможно ли это сделать, если да то подскажите как.. не помешал бы код модуля....
Заранеее спасибо
Public Function MyFunc()
On Error GoTo Err_
Dim db As DAO.Database
Dim pathToDb As String
Dim imTbl As String
'-- создание БД
pathToDb = "D:\qwe.mdb"
Set db = Workspaces(0).CreateDatabase(pathToDb, dbLangCyrillic)
db.Close
'-- экспорт таблицы в БД
imTbl = "Таблица1"
CurrentDb.Execute "SELECT " & imTbl & ".* INTO " & imTbl & " IN '" & pathToDb & "' FROM " & imTbl & ";", dbFailOnError
Exit_:
Exit Function
Err_:
MsgBox Err.Description
Resume Exit_
End Function