Private Sub Command1_Click()
If Text1.Text <> "" Then
CrystalReport1.ReportFileName = "C:\informe.rpt" 'La ruta de tu informe
CrystalReport1.SelectionFormula = "{productos.precio}>" & Text1.Text & ""
CrystalReport1.PrintReport
End If
End Sub