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

  ' 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
    Else
    MsgBox "Fehler"
End If
End Sub

mfG.
Stephan