سلام من این برنامه رو نوشتم مربوط به جدول دانشجو هست ولی جواب نمیده

Dim db As Database
Dim rs As Recordset
Private Sub Command1_Click()
rs.AddNew
rs.Fields(0) = Val(Text1.Text)
rs.Fields(1) = Text2.Text
rs.Fields(2) = Val(Text3.Text)
rs.Update
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
rs.FindFirst "code=" & Text4.Text
If rs.NoMatch = True Then
MsgBox "not found"
Else
Call lader
End If
End Sub

Private Sub Command4_Click()
Dim x As Variant
x = MsgBox("ÍÐÝ ÔæÏ", vbYesNo, "ÍÐÝ")
If x = vbYes Then
rs.Delete
rs.Close
Set rs = db.OpenRecordset("danesh", dbOpenDynaset)
End If
End Sub

Private Sub Command5_Click()
Set db = DBEngine.OpenDatabase("C:\Users\acer\Documents\dan eshjo.mdb")
Set rs = db.OpenRecordset("danesh", dbOpenDynaset)
End Sub

Private Sub Form_Load()
Call Command5_Click
Call loader
End Sub
Private Sub loader()
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
End Sub

از منوی project قسمت refrence گزینه microsoft DAO 3.6 رو هم تیک زدم
یه بانکی به نام daneshjo هم ساختم ولی نمیدونم چرا جواب نمیده. به نظرم یه کاری نکردم و جا انداختمش میشه راهنماییم کنید و بگید باید چیکار کنم؟

با سپاس بی پایان