help me to avoid 3704 error object not found error in bolds

[satheeshyahoo]

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 Sub display()
Text1 = rs("name")
Text2 = rs("rollno")
Text3 = rs("m1")
Text4 = rs("m2")
Text5 = rs("m3")
Text6 = rs("total")
End Sub

Private Sub clear()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

Private Sub Command3_Click( )
rs.MoveLast
Call display
End Sub

Private Sub Command4_Click( )
rs.MovePrevious
Call display
End Sub

Private Sub Command5_Click( )
Call clear
End Sub

Private Sub Command6_Click( )
Call assign
End Sub

Private Sub Command7_Click( )
Call delete
End Sub

Private Sub Command8_Click( )
Set rs = db.Execute("sel ect * from student where rollno = '''&text1.text' '' ")
Call display
End Sub
Private Sub assign()
rs.AddNew
Set rs = db.Execute("ins ert into student values &'''text1'''&,& '''text2'''&,&' ''text3'''&,&'' 'text4'''&,&''' text5'''&,&'''t ext6'''")

End Sub
Private Sub delete()
Set rs = db.Execute("del ete * from student where rollno='''&text 1.text''' ")
End Sub

[Killer42]

Is Sub Main being executed?