Whats wrong with this SQL query?

[Pirre001]

This query doesen't work. Please, help me...

Dim db As Database
Dim rs As Recordset
Dim SQL, SQLWhere, Number1, Number2
 
If Len(Me![Text0]) > 0 Then
Number1 = "=""" & Me![Text0] & """"
Else
Number1 = "Is Null"
End If
 
If Len(Me![Text1]) > 0 Then
Number2 = "="""  & Me![Text1] & """"
Else
Number2 = "Is Null"
End If
 
SQL = "SELECT * FROM tbltable1 "
 
SQLWhere = "WHERE tbltable1.[Field1] " & "" & Number1 & " " & _
"AND tbltable1.[Field2] " & "" & Number2 & ";"
 
Set db = CurrentDb
Set rs = db.OpenRecordset(SQL & SQLWhere)