Option Explicit
Dim db As New ADODB.Connectio n
Dim rs As New ADODB.Recordset

Private Sub Command1_Click( )
rs.MoveFirst
Call display
End Sub

Private Sub Command2_Click( )
rs.MoveNext
Call display
End Sub

Private Sub main()
db.Open = "dsn = student"
Set rs = db.Execute("sel ect * from student")
End Sub
Private...