Dim SDB As ADODB.Connection
Dim RS As ADODB.Recordset
Dim SQL As String
Set SDB = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
 
SDB.Open ("Provider=sqloledb;Data Source=192.168.190.192;Initial" & _
  "Catalog=tabelle;User Id=yyy;Password=xxx;")
SQL = "Select * from Artikel where ..."
RS.Open SQL, SDB
Do Until RS.EOF
   '... tu irdendetwas
   RS.MoveNext
Loop
RS.Close
SDB.Close

Joachim