Сообщество Чайников

Вопрос

У меня есть файлы messages.mdb в каждой папке В каждом таком файле есть таблица Messages, в которой хранятся сами письма. Мне нужно скопировать одну запись из одного файла в другой. Как это сделать?
Пытался сделать так:

Dim tMessageID$
tMessageID = lstMessages.SelectedItem.Key

Dim cn2 As ADODB.Connection
Dim rs2 As ADODB.Recordset
Set cn2 = New ADODB.Connection
Set rs2 = New ADODB.Recordset

cn2.ConnectionString = "Driver=Microsoft Access Driver (*.mdb);Password=:UserID=Admin;DBQ=" & App.Path & "\" & SelectedBox & "\trash\messages.mdb"

rs2.ActiveConnection = cn.ConnectionString
rs2.CursorType = adOpenDynamic

'Вот тут ввожу псевдоним но дольше его не видно
sSQL = "SELECT * FROM Messages AS DelMsg WHERE MessageID='" & tMessageID & "'"
rs.Source = sSQL
rs.Open

'Тут его вставляю.
sSQL = "INSERT INTO Messages SELECT * FROM DelMsg WHERE MessageID='" & tMessageID & "'"

rs2.Source = sSQL
rs2.Open
Здесь выдает, что не найдена входная таблица DelMsg :(

rs2.Close
rs.Close

Ответ

Вставляем из 'c:\temp\111.mdb' в 'c:\temp\aa.mdb'

sSQL="INSERT INTO Messages IN 'c:\temp\222.mdb' SELECT * FROM Messages IN 'c:\temp\111.mdb' where MessageID='" & tMessageID & "'"

tagir