Вызов следующей функции
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
Кто-нибудь знает ка этого избежать?