SELECT Anweisung Access VBA

[Paul]

Okay,
ich bin jetzt mit der Datenbank verbunden, kann aber die Daten nicht ausgeben ?

Quellcode (WEB):

Dim cn, rs

Set cn = CreateObject("ADODB.Connection")
   Set rs = CreateObject("ADODB.Recordset")

' Connection zur Datenbank aufbauen
   cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=D:\Dokumente und Einstellungen\paulfranke\Desktop\Drucker _2_2007-04-18.mdb;"

' Recordset öffnen
   rs.Open "[SELECT * FROM Drucker_Typ]", _
      cn, adOpenForwardOnly, adLockReadOnly, adCmdStoredProc

' Records anzeigen
   Do Until rs.EOF
        Write rs.Fields.Value
      rs.MoveNext
   Loop

' Recordset schließen
   rs.Close
   cn.Close
End Sub