Automation Error при вызове TransferText из другого потока

[dennis svezhentsev]

Вызов следующей функции

Public Sub ThreadProc()
Application.OpenCurrentDatabase MainForm.Text1.Text
DoCmd.TransferText acExportDelim, , "Points_253", CurDir + "orcl.csv"
Application.CloseCurrentDatabase
End Sub

В отдельном потоке:
Thread1 = CreateThread(ByVal 0&, 2000000, AddressOf ThreadProc, ByVal 0&, THREAD_PRIORITY_NORMAL, ThreadID)
Дает ошибку:

Automation Error: -2147221008

Кто-нибудь знает ка этого избежать?