Public Function ConnectSqlServer() As Boolean
    Dim sConn As String
 
    On Error GoTo ConnectSqlServerError ' Fehlerbehandlung
 
 
    Set Cnn = New ADODB.Connection
 
 
    sConn = "Provider=SQLOLEDB.1;" & sConn & ";Persist Security" & _
      "Info=False;Connect Timeout=45"
 
    Cnn.CursorLocation = adUseClient
    Cnn.Open sConn
 
    ConnectSqlServer = True
 
 
    '   -----------------Procedure-Exit---------------
ConnectSqlServerExit:
 
 
    '   Prozedur verlassen
    Exit Function
 
    '   -----------------Err-Handler------------------
ConnectSqlServerError:
    '   Fehler protokollieren und anzeigen
 
 
    Call ErrorLog(Err.Description & "(" & Err.Number & ")" & _
      "clsADOData|ConnectSqlServer")
 
    '   Zur Exit-Marke gehen
 
    'GSSaveSetting HKEY_LOCAL_MACHINE, strSection$, "CurrentDB", "new"
 
    Resume ConnectSqlServerExit

Public Function OpenRecordset(RecSet As ADODB.Recordset, _
        Connection As ADODB.Connection, _
        SQLString As String, _
        CursorType As ADODB.CursorTypeEnum, _
        CursorLocation As ADODB.CursorLocationEnum, _
        LockType As ADODB.LockTypeEnum, _
        Optional MsgOnError As Boolean = True) As Boolean
 
 
 
    On Error GoTo Fehler
 
 
    If RecSet.State = adStateOpen Then
            RecSet.Close
    End If
 
    ' Recordset öffnen
    With RecSet
        .ActiveConnection = Connection
        .Source = SQLString
        .CursorLocation = CursorLocation
        .CursorType = CursorType
        .LockType = LockType
        .Properties("IRowsetIdentity") = True
        .Open
    End With
 
    OpenRecordset = True
 
ausgang:
 
 
    On Error GoTo 0
    Exit Function
 
Fehler:
    If MsgOnError Then
 
            Call ErrorLog(Err.Description & "(" & Err.Number & ")" & _
              "clsADOData|OpenRecordset")
 
    End If
    Resume ausgang
 
End Function