مشکل در سرچ در دیتا بیس

[jaberaghidat]

سلام من در یک پروژه از این کد برای سرچ کردن استفاده می کنم وقتی تمام فیلدهای ذخیره شده در اکسس یعنی فیلد ها
پر باشند این کد کار می کند اما اگر بعضی از فیلدها در جدول خالی بماند دیگر کد ایرور می دهد
مثلا اگر ما یک فیلد نام و یک فیلد فامیل داشته باشیم می خواهیم بر اساس نام جستجو کند
باید حتما هم نام پر باشد هم فامیل وگرنه این کد کار نمی کند
Private Sub KewlButtons1_Click()
If Text1 = "" Then GoTo 2
If Adodc1.Recordset.EOF = True Then
GoTo 2
Else
Adodc1.Recordset.MoveFirst
3 If Adodc1.Recordset.EOF = True Then
GoTo 2
Else
If Adodc1.Recordset.Fields(0).Value = Text1 Then
Text1 = Adodc1.Recordset.Fields(0).Value
Text2 = Adodc1.Recordset.Fields(1).Value
Text3 = Adodc1.Recordset.Fields(2).Value
Else
Adodc1.Recordset.MoveNext
GoTo 3
End If
End If
End If
2 End Sub