كمك كمك در سرچ كردن از ديتا بيس

باسلام خدمت دوستان برنامه نويس عزيز

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

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

لطفا زودتر با تشكر