Private Sub cmdVor_Click() 
  <font color=green>' Nächsten Datensatz anzeigen </font>
  If Tabelle.RecordCount > 0 And Not Tabelle.EOF Then 
    Tabelle.MoveNext 
    If Not Tabelle.Eof Then
      txtCDNummertext.Text = Tabelle("CDNummer") 
      txtAusgabeText.Text = Tabelle("Ausgabe") 
      ..... 
    Else
      Tabelle.MoveLast
    End If
  End If 
End Sub