Public Sub connectDatabase()
On Err GoTo connectDatabaseError
 
Set cnSQLServer = New Connection
cnSQLServer.ConnectionString = _
                "Provider=SQLOLEDB.1; Data Source=" & getServerFromRegistry & _
                "; Initial Catalog=" & getDatabaseNameFromRegistry & ";" & _
                "Integrated Security=SSPI"
cnSQLServer.Open
   Exit Sub
connectDatabaseError:
MsgBox "Zur Zeit keine Datenbankanbindung möglich ! " & vbKeyReturn & _
            "Bitte wenden Sie sich an den Systemadministrator !", vbCritical, _
            "Fehler bei der Datenbankanbindung"
End
End Sub