Dim ad As adodb.Connection
Dim rs As adodb.Recordset
 
Set ad = New adodb.Connection
ad.Open "PROVIDER=MSDASQL;dsn=NaviServer"
 
sql="SELECT a.ArtikelNr, a.Beschreibung, a.Fe_Status, b.Best__Pos, a.Chargennr" & _
  "FROM Umlagerungsposten a, Fertigungszeile b WHERE (a.Belegnr ='" & KA & "')" & _
  "AND (a.neue_ArtPostenNr = b.Ausgleich_mit_Lfd__Nr_) ORDER BY  a.Fe_Status," & _
  "a.ArtikelNr,  b.Best__Pos"
 
Set rs = New adodb.Recordset
rs.Open sql, ad