Private Sub Command1_Click()
  ' Nächsten Datensatz anzeigen
  If Tabelle.RecordCount > 0 And Not Tabelle.EOF Then _
    Tabelle.MoveNext
    Text1 = Tabelle("Bezeichnung") ' Text1 erhält den Wert des Datenfeldes
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de