Dim oRS As Recordset
    Dim sql As String
    Dim ret As Boolean
 
    On Error Resume Next
    ret = OpenDB    
 
    sql = "SELECT SERVERPROPERTY('productversion'), " & _
            "SERVERPROPERTY('productlevel'), " & _
            "SERVERPROPERTY('edition'), " & _
            "SERVERPROPERTY('computernamephysicalnetbios'), " & _
            "SERVERPROPERTY('machinename'), " & _
            "SERVERPROPERTY('servername'), " & _
            "SERVERPROPERTY('sqlcharsetname')"
 
    Set oRS = Db_Odbc.OpenRecordset(sql, dbOpenSnapshot)
 
    oRS.MoveLast
    oRS.MoveFirst
 
    Debug.Print err.Number
 
    If err.Number = 0 Then
 
        MsgBox "Product Version: " & vbTab & vbTab & NullToNix(oRS(0)) & vbCrLf _
          & _
            "Product Level: " & vbTab & vbTab & NullToNix(oRS(1)) & vbCrLf & _
            "Edition: " & vbTab & vbTab & vbTab & NullToNix(oRS(2)) & vbCrLf & _
            "Physical Computer Name: " & vbTab & NullToNix(oRS(3)) & vbCrLf & _
            "Machine Name: " & vbTab & vbTab & NullToNix(oRS(4)) & vbCrLf & _
            "Server Name: " & vbTab & vbTab & NullToNix(oRS(5)) & vbCrLf & _
            "Sql CharSet Name: " & vbTab & vbTab & NullToNix(oRS(6)) & vbCrLf & _
            "DataBase Name: " & vbTab & vbTab & ODBCName, _
            vbInformation, _
            "Datenbank Info"
 
    Else
 
        MsgBox "Datenbank Informationen konnten nicht gelesen werden !" & _
          vbCrLf & _
            "Fehler Nr. : " & vbTab & err.Number & vbCrLf & _
            "Fehler Bez.: " & vbTab & err.Description, _
            vbInformation, _
            "Datenbank Info"
 
    End If
 
    oRS.Close
    Set oRS = Nothing
 
    On Error Resume Next
    DBEngine.Workspaces(0).Close                        ' Schließe ODBC 
    ' Workspace
    DBEngine.Workspaces(1).Close                        ' Schließe Jet Workspace
    DBEngine(0).Close
    Db_Odbc.Close
    Db_Jet.Close
    Set Db_Odbc = Nothing
    Set Db_Jet = Nothing
    On Error GoTo 0