How to remove " A number Required here" error from crystal report?

After coding my data entry forms and inquiry forms I was in final lap of my software and I was designing crystal report but when I run  my crystal report I got an error message" A number required here"  I know that  my data field on which I am filtering the data in crystal report is a number type of data so this error can be removed by changing the data type in data table but as I wan in final lap of my program so if I change my data type in data table then my other forms will also not function properly. the code which give error was as

under:

Dim rep As CrystalDecisions.CrystalReports.Engine.ReportDocument

        rep = New ReportIndividualDeployment

        If RbtAll.Checked Then

            If TxtPISNo.Text = "" Then

                MsgBox("Please Enter a PIS No")

                TxtPISNo.Focus()

                Exit Sub

            End If

            Dim ds As New DsReportLeave 'The dataset that you have created in XML

 DaIndDeployment.Fill(ds, "Deployment")

 rep.SetDataSource(ds)

 FrmReportViewer.CRV.SelectionFormula = {Deployment.PISNumber}="’ &(TxtPISNo.Text)_ & "’"

            rep.SummaryInfo.ReportTitle = "DEPLOYMENT DETAIL"

            FrmReportViewer.CRV.ReportSource = rep

            FrmReportViewer.ShowDialog()

            FrmReportViewer.Dispose()

            Me.Close()

        End If

this one minor error has taken my two hours and after lots of trial and run in syntax, when the solution syntax I got which is very simple, I just removed the two single quote (') which I have used in my syntax and then every thing started working fine. so  to filter a number data type in crystal report the right code is as under

Dim rep As CrystalDecisions.CrystalReports.Engine.ReportDocument

        rep = New ReportIndividualDeployment

        If RbtAll.Checked Then

            If TxtPISNo.Text = "" Then

                MsgBox("Please Enter a PIS No")

                TxtPISNo.Focus()

                Exit Sub

            End If

            Dim ds As New DsReportLeave 'The dataset that you have created in XML

 DaIndDeployment.Fill(ds, "Deployment")

 rep.SetDataSource(ds)

 FrmReportViewer.CRV.SelectionFormula = {Deployment.PISNumber}=" &(TxtPISNo.Text) & ""

            rep.SummaryInfo.ReportTitle = "DEPLOYMENT DETAIL"

            FrmReportViewer.CRV.ReportSource = rep

            FrmReportViewer.ShowDialog()

            FrmReportViewer.Dispose()

            Me.Close()

        End If

Happy Coding