|
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 Sub four commandbuttons index 0 -3 make a connection to a database make a recordset called rs |