درخواست حل پروژه فوري فوري فوري لطفا

با سلام من يك برنامه اي نوشتم كه با ديتا كنترل به بانك اطلاعات اكسس ربطش دادم كه توي برنامم بايد توي اكسس سرچ كنم من حتي برنامه سرچ كردن هم نوشتم كه سرچ هم مي كنه ولي بعد از سرچ كردن (ارور) رانتايم مي ده لطفا سريع كار منو راه بندازين با تشكر پايين كد برنامه را براتون مي گذارم

کد:

---

Private Sub Command1_Click()
If Trim(Text6.Text) = "" Then
MsgBox "áØÝÇ ÔãÇÑå ÊáÝä ÑÇ ÈÑÇí ÌÓÊÌæ æÇÑÏ ßäíÏ"
Text6.SetFocus
Exit Sub
End If
Data1.Refresh
If Data1.Recordset.BOF = False Then
Data1.Recordset.MoveFirst
End If
Do While Data1.Recordset.EOF = False
If (Data1.Recordset.Fields("ÔãÇÑå ÊáÝä") Like Text6.Text + "*") Then
X = Data1.Recordset.Bookmark
Text1.Text = Data1.Recordset.Fields("ÑÏíÝ")
Text2.Text = Data1.Recordset.Fields("ÔãÇÑå ÊáÝä")
Text3.Text = Data1.Recordset.Fields("äÇã")
Text4.Text = Data1.Recordset.Fields("äÇã ÎÇäæÇϐí")
Text5.Text = Data1.Recordset.Fields("ÇÏÑÓ")
Check19.Value = Data1.Recordset.Fields("æÔí")
Check20.Value = Data1.Recordset.Fields("Óíã ßÇÑÊ")
Check5.Value = Data1.Recordset.Fields("ÕÝÑ")
Check6.Value = Data1.Recordset.Fields("ßÇÑßÑÏå")
Check3.Value = Data1.Recordset.Fields("ÒÏå")
Check4.Value = Data1.Recordset.Fields("äÒÏå")
Check1.Value = Data1.Recordset.Fields("äÞÏí")
Check2.Value = Data1.Recordset.Fields("ÔÑÇíØí")
Check7.Value = Data1.Recordset.Fields("ÞÓØ Çæá")
Check8.Value = Data1.Recordset.Fields("ÞÓØ Ïæã")
Check9.Value = Data1.Recordset.Fields("ÞÓØ Óæã")
Check10.Value = Data1.Recordset.Fields("ÞÓØ åÇÑã")
Check11.Value = Data1.Recordset.Fields("ÞÓØ äÌã")
Check12.Value = Data1.Recordset.Fields("ÞÓØ ÔÔã")
Check13.Value = Data1.Recordset.Fields("ÞÓØ åÝÊã")
Check14.Value = Data1.Recordset.Fields("ÞÓØ åÔÊã")
Check15.Value = Data1.Recordset.Fields("ÞÓØ äåã")
Check16.Value = Data1.Recordset.Fields("ÞÓØ Ïåã")
Check17.Value = Data1.Recordset.Fields("ÞÓØ íÇÒÏåã")
Check18.Value = Data1.Recordset.Fields("ÞÓØ ÏæÇÒÏåã")
Text1.Tag = Text1.Text
Text2.Tag = Text2.Text
Text3.Tag = Text3.Text
Text4.Tag = Text4.Text
Text5.Tag = Text5.Text
Check19.Tag = Check19.Value
Check20.Tag = Check20.Value
Check5.Tag = Check5.Value
Check6.Tag = Check6.Value
Check3.Tag = Check3.Value
Check4.Tag = Check4.Value
Check1.Tag = Check1.Value
Check2.Tag = Check2.Value
Check7.Tag = Check7.Value
Check8.Tag = Check8.Value
Check9.Tag = Check9.Value
Check10.Tag = Check10.Value
Check11.Tag = Check11.Value
Check12.Tag = Check12.Value
Check13.Tag = Check13.Value
Check14.Tag = Check14.Value
Check15.Tag = Check15.Value
Check16.Tag = Check16.Value
Check17.Tag = Check17.Value
Check18.Tag = Check18.Value
Text6.Text = ""
Exit Sub
End If
Data1.Recordset.MoveNext
Loop
MsgBox "ÑßæÑÏí ÈÇ Çíä ãÔÎÕÇÊ íÏÇ äÔÏ", vbExclamation, "ÇÔÊÈÇå ÏÑ ÌÓÊÌæ"
Text6.Text = ""
Text6.SetFocus
End Sub

---