select

Eine allgemeine Standard SQL-Select Abfrage die einfach nicht in mein Kopf will 🙂

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim intID as Integer
Dim strArtikel  as String

strSQL = "SELECT ID, Artikel FROM tblArtikel WHERE ID='" & intID & "'"

Set db = CurrentDb   
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)

If Not rs.EOF Then rs.MoveFirst

Do While Not rs.EOF     
  strArtikel = rs!Artikel 
  rs.MoveNext   
Loop
rs.Close
Set rs = Nothing
Set db = Nothing