Option Explicit
 
Dim Cn As ADODB.Connection
 
Private Sub Form_Load()
Dim i As Integer
Dim sMsg As String
 
On Error GoTo ErrHandle
 
Set Cn = New ADODB.Connection
With Cn
    ' Daten auf den Cursor ziehen
    .CursorLocation = adUseClient
    ' Datenbanktreiber
    .Provider = "SQLOLEDB.1"
    ' Servername
    .Properties("Data Source") = "sql100"
    ' Datenbankname
    .Properties("Initial Catalog") = "sms_rz4"
    ' User-ID
    .Properties("User ID") = "vb"
    ' Userpasswort
    .Properties("Password") = "1520"
'     NT-Authentifikation
'    .Properties("Integrated Security") = "SSPI"
    .Open
    .BeginTrans
    .Execute "SELECT Resource_Names0 From dbo.System_Resource_N_ARR WHERE(" & _
      "Resource_Names0 LIKE '%x%') OR (Resource_Names0 BETWEEN 's00' AND 's99')" & _
      "OR (Resource_Names0 BETWEEN 'w00' AND 'w99') OR (Resource_Names0 BETWEEN" & _
      "'z00' AND 'z99')"
    .CommitTrans
End With
Exit Sub
 
ErrHandle:
sMsg = "Es sind Fehler aufgetreten: " & vbCrLf & vbCrLf
With Cn
    .RollbackTrans
    For i = 0 To .Errors.Count - 1
        sMsg = sMsg & .Errors(i).Description & vbCrLf
    Next i
    .Errors.Clear
End With
MsgBox sMsg, vbCritical, "Datenbankfehler"
End Sub