Private Sub cmdNavigation_Click(Index As Integer)
 
With mRS 'Dein Recorset, in DAO erstellt
 
   Select Case Index
 
        Case 0 '1x Vorwärts 
 
            .MoveNext
            If .EOF Then
                .MoveFirst
            End If
            Textladen 'Sub für das Textfile
 
        Case 1 '1x rückwärts 
            .MovePrevious
            If .BOF Then .MoveLast
            Textladen 'Sub für das Textfile
 
        Case 2 'An den Anfang
            .MoveFirst
            Textladen 'Sub für das Textfile
 
        Case 3 'zum Ende
            .MoveLast
            Textladen 'Sub für das Textfile
 
    End Select
End With
End Sub

Gruss
Cyberclone

--