Visual Basic - necesito ayuda urgente con el crystal report

intento crear un informe con datos de un distribuidor. Para ello, desde un formulario con una caja de texto llamo al informe pasandole en la clausula where el valor del parametro de la caja. El informe se ejecuta mostrandome todos los distribuidores. El codigo q utilizo es el siguiente:

Private Sub Form_Load()
Dim Report As Variant
Dim sql As String
Dim sql1 As String, sql2 As String, sql3 As String
Set Report = Nothing

Set Report = New CrystalReport1
sql = Report.SQLQueryString
sql2 = " where DISTRIBUIDORCLIENTE.NUMERO=" & Form1.Text1.Text & " "
sql = sql1 & sql2 & sql3

Report.SQLQueryString = sql
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
End Sub