Navigation Buttons

[shdraf]

How do I design Navigation Buttons i.e., First, Next, Previous, Last to work with any recordset, in a Dataenvironment.

[TheBao]

Private Sub MoveFirst(rs As ADODB.Recordset)
    rs.MoveFirst
End Sub
Private Sub MoveLast(rs As ADODB.Recordset)
    rs.MoveLast
End Sub
Private Sub MovePrev(rs As ADODB.Recordset)
    If rs.BOF Then
        rs.MoveFirst
    Else
        rs.MovePrevious
    End If
End Sub
Private Sub MoveNext(rs As ADODB.Recordset)
    If rs.EOF Then
        rs.MoveLast
    Else
        rs.MoveNext
    End If
End Sub