Public db As adodb.Connection
Public rs as adodb.Recordset
 
Set db = New adodb.Connection
db.ConnectionString = "Driver={SQL Server};Server=" & serv & ";Database=" & dab _
  & ";UID=" & usern & ";PWD=" & pwd & ""
db.Open
 
Set rs = New adodb.Recordset
rs.CursorLocation = adUseServer
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.ActiveConnection = db1
 
rs.open ("SELECT Kunde FROM Kartei WHERE Kunde LIKE 'STERN'")
 
While not rs.eof
List1.Additem rs!Kunde
rst.movenext
Wend
 
rs.close