اين الخطأ فى الكود التالى ؟؟؟؟؟؟؟

Dim SQL1 As String

Dim SQL2 As String

Dim SQL3 As String

On Error Resume Next

** اختيار البيانات المطلوبه

SQL1 = "SELECT * FROM Fcust WHERE add like '" & combo1.Text & "%' and buildno = '" & combo2.Text & "%' "

الغاء البيانات القديمه من الملف المطلوب نقل البيانات المختاره بعاليه اليه

SQL2 = "delete* from Ftrans_pr where custid>0"

نقل البيانات التى تم اختيارها الى الملف الجديد

SQL3 = "insert into Ftrans_pr select* from Fcust where WHERE add '" & combo1.Text & "%' and buildno LIKE '" & combo2.Text & "%' "

If combo1.Text = "" Then

msg = MsgBox("من فضلك اختار العنوان المطلوب", vbInformation, "Organizer Message Center")

Exit Sub

combo1.SetFocus

End If

If combo2.Text = "" Then

msg = MsgBox("من فضلك اختار رقم العقار المطلوب", vbInformation, "Organizer Message Center")

Exit Sub

combo2.SetFocus

End If

DB.Execute SQL1

DB.Execute SQL2

DB.Execute SQL3

Fprbuild_sel.Show 1

النتيجه صفر .... لم يتم اختيار البيانات من جملة Select الأولى .... فين الغلط ؟؟؟؟؟ ارجو التصحيح