'four commandbuttons index 0 -3 'make a connection to a database 'make a recordset called rs Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 'last one rs.MoveLast Case 1 'previous record rs.MovePrevious If rs.BOF Then MsgBox "First record", vbInformation: rs.MoveFirst Case 2 'next record rs.MoveNext If rs.EOF Then MsgBox "Last record", vbInformation: rs.MoveLast Case 3 'first one rs.MoveFirst End Select 'call your procedure to show the record Call ShowRecord End SubReturn