[OleDB] Prüfen, ob Datenbankverbindung offen

' Funktion zum prüfen der DB Verbindung
' DB_OleDBConnection ist dabei ein zuvor erzeugtes
' globales Objekt vom Typ System.Data.OleDb.OleDbConnection
Public Function DBConnectionIsOpen() As Boolean
    Dim bRetVal As Boolean = False

    If Not IsNothing(DB_OleDBConnection) Then
        bRetVal = IIf(DB_OleDBConnection.State = System.Data.ConnectionState.Open, True, False)
    End If

    Return bRetVal
End Function