How filter Name records in crystal reports using command button visual studio 2010? we use as below code but error display

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim cryRpt As New ReportDocument
    RepLocation = Path.GetFullPath( _
        Path.Combine(Application.StartupPath, "..\..")) & _
        "\CrystalReport1.rpt"
    cryRpt.Load(RepLocation)
    If TextBox1.Text <> "" Then
        cryRpt.RecordSelectionFormula = "{QC.NAME} = " & TextBox1.Text
    End If
    CrystalReportViewer1.ReportSource = cryRpt
    CrystalReportViewer1.Refresh()
End Sub