Necesito generar un informe donde solo me arroje los datos que esten un rango de fecha, en este caso, con las fechas q se ingresan en dos TextBox. Cuando lo hago con solo una fecha si me aparecen los datos pero cuando lo pido con el rango de las dos fechas (desde hasta) no me sale datos

Cita:
Sub borrard(cr1 As CrystalReport, num As Integer)
For i = 1 To num
cr1.SelectionFormula = ""
Next
For i = 1 To num
cr1.Formulas(i) = ""
Next
End Sub
Private Sub cdmimprimir_Click()
cr1.ReportFileName = "C:\JDvD AdGest\Reportes\Relecion_facturas.RPT"
cr1.WindowMaxButton = False: cr1.WindowMinButton = False
cr1.SQLQuery = "SELECT * FROM FacturaTem WHere Fecha ='" & Text1.Text & "' And '" & Text2.Text & "'"
cr1.GroupCondition(0) = "GROUP1;{FacturaTem.Fecha};ANYCHANGE;A"
cr1.SelectionFormula = "{FacturaTem.Fecha} ='" & Trim(Text1.Text) & "'and {FacturaTem.Fecha} ='" & Trim(Text2.Text) & "'"
cr1.WindowState = crptMaximized
cr1.Destination = crptToWindow
cr1.DiscardSavedData = True
cr1.Action = 0
borrard cr1, 1
End Sub
For i = 1 To num
cr1.SelectionFormula = ""
Next
For i = 1 To num
cr1.Formulas(i) = ""
Next
End Sub
Private Sub cdmimprimir_Click()
cr1.ReportFileName = "C:\JDvD AdGest\Reportes\Relecion_facturas.RPT"
cr1.WindowMaxButton = False: cr1.WindowMinButton = False
cr1.SQLQuery = "SELECT * FROM FacturaTem WHere Fecha ='" & Text1.Text & "' And '" & Text2.Text & "'"
cr1.GroupCondition(0) = "GROUP1;{FacturaTem.Fecha};ANYCHANGE;A"
cr1.SelectionFormula = "{FacturaTem.Fecha} ='" & Trim(Text1.Text) & "'and {FacturaTem.Fecha} ='" & Trim(Text2.Text) & "'"
cr1.WindowState = crptMaximized
cr1.Destination = crptToWindow
cr1.DiscardSavedData = True
cr1.Action = 0
borrard cr1, 1
End Sub