Hallo Alex,
ich glaube, es ist besser, dass du so vorgehst;
Dim conn As New ADODB.Connection
Dim RS As Recordset
conn.Open "DSN=TabellenName"
strSel = "Select Feld1,Feld2,... From Tabelle [Where ...]"
Set RS = Conn.ExeCute(strSel)
jetzt kannst du die einzelne Felder so ausgeben:
...RS(0) für Feld1
...RS(1) für Feld2
Sohail