Option Explicit
Dim WithEvents DB As Connection
 
Private Sub Form_Load()
Verbind = modDBVerbindung.DB_Oeffnen            'Aufruf Modul => Routine 
' DB_Oeffnen
..
..
end sub
 
Private Sub db_ConnectComplete(ByVal pError As Error, adStatus As _
  EventStatusEnum, ByVal pConnection As Connection)
Verbind=DB.State
End Sub

Option Explicit
Public DB As Connection    
Public Function DB_Oeffnen() As Boolean
Set DB = New Connection                                                  _
  'Instanzierung der Connection DB
DB.CursorLocation = adUseClient                                   'Curosor 
' Location setzen
DB.ConnectionString = ConnString_ohnePWD             'Funktion - Erzeugen des 
' Conn
DB.Open Options:=adAsyncConnect                               'Öffnen der DB i. 
' Hintergrund
Exit Function

Jedoch
DB.open
alleine funktioniert.

db.State => bekomme ich folgende Meldung:
Objektvariable oder WithStateVariable nicht festgelegt.