Access und DoCmd

[Alex Schneieder]

Hallo,

ich habe das geschrieben:

Dim Access
Set Access = CreateObject("Access.Application")
Dim myWorkspace
Set myWorkspace = Access.DBEngine.Workspaces(0)
Dim myDatabase
Set myDatabase = myWorkspace.OpenDatabase("C:\TEST\roper.mdb")
Access.Visible = True
Access.DoCmd.OpenQuery "Abfrage1", acNormal, acEdit
Access.DoCmd.TransferText acExportDelim, "PERLSTEFAN", "RECHNUNGEN", "D:\VBS\Test.txt", False, ""
Access.Quit

Leider funktioniert es nicht ganz. Access 97 geht auf und verweigert dann mit dem Hinweis, Access könne nicht die DoCmd-Aktion ausführen während es einen anderen Vorgang abarbeitet.
Gruß
Alex