مشكلة عند تمرير متغيرات الاتصال الى التقرير

السلام عليكم

هذا الكود والمشكلة تضهر عند rpt.VerifyDatabase()

  Try
            rpt.FileName = "C:\Reports\CustomerSTMV7BAK.rpt"
            CrystalReportViewer1.ReportSource = rpt
            '..
            Dim logOnInfo As New TableLogOnInfo()
            logOnInfo.ReportName = "C:\Reports\Customer.rpt"
            '..
            logOnInfo.ConnectionInfo.ServerName = "192.168.1.1
            logOnInfo.ConnectionInfo.DatabaseName = "db"
            logOnInfo.ConnectionInfo.UserID = "sa"
            logOnInfo.ConnectionInfo.Password = "sa"
            '..
            Dim i As Integer
            For I = 0 To rpt.Database.Tables.Count - 1
                rpt.Database.Tables(i).ApplyLogOnInfo(logOnInfo)
            Next i
            '..
            rpt.SetParameterValue(0, "01/01/2006")
            '..
            rpt.SetParameterValue(1, "01/01/2009")
            '..
            rpt.SetParameterValue(2, "M-0001")
            '..
            rpt.SetParameterValue(3, "ريال")
            '..
            rpt.VerifyDatabase()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

عند تنفيذ التقرير تضهر لي المشكلة التالية

Invalid mapping type value