Public Function OpenConnection() As Boolean
 
  On Error GoTo Errorhandle
 
' Hier der Code zum Öffnen der Verbindung
 
  OpenConnection = True
 
  Exit Function
Errorhandle:
' Fehlerbehandlung
End Function
 
Public Sub CloseConnection()
 
' Verbinung schließen
 
End Sub

  If Not OpenConnection Then
' Zugriffversuch abbrechen, und User informieren
    Exit Function
  End If