Public Sub SchreibVerbindung()
...
Do While bDBopen = True
        DoEvents
Loop
...
End Sub
 
Public Sub LiesVerbindung()
...
' öffne Datenbank
 bDBopen = True
...
' Daten einlesen
...
' Datenbank schließen
 bDBopen = False
...
End Sub

--

Geh' lieber durch die Wand, als immer durch die Tür.
Durchbreche den Verstand, dann findest Du zu Dir.