visula basic 2005 中的水晶报表难题？？？

各位高手好！
    本人用VBNET作了一小系统，报表是visula basic 2005 中的水晶报表，当时的水晶报表调用数据库的IP是192.168.0.80,
如果数据库服务器(sql server 2005)IP换成192.168.0.88时，报表不能打开。如何转换？请高手指点，谢谢！ --------------------编程问答-------------------- 水晶报表怎么绑定的数据源
通过数据集绑定 --------------------编程问答-------------------- dear Wuyq11
   水晶报表调用的存储过程并带有参数！
'调用水晶报表时还需输入数据库密码，又如何处理，谢谢！

        Dim MyPubReport As New FrmPublicReport

        Dim pvMatCodeconn As New CrystalDecisions.Shared.ParameterValues()
        Dim pvSDateConn As New CrystalDecisions.Shared.ParameterValues()
        Dim pvEDateConn As New CrystalDecisions.Shared.ParameterValues()
        Dim pvMatNameConn As New CrystalDecisions.Shared.ParameterValues()
        Dim pvMatTypeConn As New CrystalDecisions.Shared.ParameterValues()

        Dim pdvMatCode As New CrystalDecisions.Shared.ParameterDiscreteValue()
        Dim pdvSdate As New CrystalDecisions.Shared.ParameterDiscreteValue()
        Dim pdvEdate As New CrystalDecisions.Shared.ParameterDiscreteValue()
        Dim pdvMatName As New CrystalDecisions.Shared.ParameterDiscreteValue()
        Dim pdvMatType As New CrystalDecisions.Shared.ParameterDiscreteValue()

        Dim rptPath As New CrystalDecisions.CrystalReports.Engine.ReportDocument()

        rptPath.Load("..\WarehousStockReport.rpt")  '现放于BIN目录下

        pdvSdate.Value = Trim(txtSDate.Text)
        pdvEdate.Value = Trim(txtEDate.Text)
        pdvMatCode.Value = Trim(txtMatcode.Text)
        pdvMatName.Value = Trim(txtMatName.Text)
        pdvMatType.Value = Trim(txtMatType.Text)

        pvMatCodeconn.Add(pdvMatCode)
        pvSDateConn.Add(pdvSdate)
        pvEDateConn.Add(pdvEdate)
        pvMatNameConn.Add(pdvMatName)
        pvMatTypeConn.Add(pdvMatType)
        MyPubReport.CRV.ReportSource = rptPath

        rptPath.DataDefinition.ParameterFields("@StartDate").ApplyCurrentValues(pvSDateConn)
        rptPath.DataDefinition.ParameterFields("@EndDate").ApplyCurrentValues(pvEDateConn)
        rptPath.DataDefinition.ParameterFields("@MatId").ApplyCurrentValues(pvMatCodeconn)
        rptPath.DataDefinition.ParameterFields("@MatName").ApplyCurrentValues(pvMatNameConn)
        rptPath.DataDefinition.ParameterFields("@MatType").ApplyCurrentValues(pvMatTypeConn)
        MyPubReport.CRV.DisplayGroupTree = False
        MyPubReport.Show() --------------------编程问答-------------------- 参考：相信你看了就能搞定。
http://blog.csdn.net/babyt/archive/2008/10/09/4610120.aspx
http://blog.csdn.net/babyt/archive/2008/08/21/4610132.aspx

补充：.NET技术 ,  VB.NET