جستجو در بانک

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

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()
On Error Resume Next
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
End Sub

از منوی project قسمت refrence گزینه microsoft DAO 3.6 رو هم تیک زدم
یه بانکی به نام daneshjo هم ساختم ولی نمیدونم چرا جستجوش جواب نمیده بقیه دکمه ها مثل جدید ، ذخیره و یا حذف درست کار میکنه
ارورش هم اینه compile error sub or function not defined
با سپاس بی پایان

یعنی واقعا کسی جواب این سوال منو بلد نیست؟:41:

یعنی واقعا کسی جواب سوال منو نمیدونه؟