'PosUsers
 
Dim C3tp As New ADODB.Connection
Dim PosUsers As New ADODB.Recordset
 
Set C3tp = New ADODB.Connection
C3tp.ConnectionString = "Provider=SQLOLEDB.1;" & _
                        "Persist Security Info=False;" & _
                        "User ID=" & SQLuser & ";" & _
                        "Password=" & SQLpwd & ";" & _
                        "Initial Catalog=XYZ;" & _
                        "Data Source=" & SQLsource
 
C3tp.Open
 
Set PosUsers.ActiveConnection = C3tp
 
SQLstr = "SELECT * " & _
         "FROM dbo.PosUsers " & _
         "WHERE C1UserID < 999 " & _
         "ORDER BY C1UserID"
 
With PosUsers
    .CursorType = adOpenStatic
    .Source = SQLstr
    .Open
End With

While Not PosUsers.EOF
    if PosUsers![Name] = "XYZ" Then MsgBox "XYZ gefunden"
Wend