รบกวนขอคำแนะนำแก้ไขปัญหา เมื่อรันโปรแกรมบน client ขึ้น "Failed to open the connection. Failed to open the connection crystal report "

ReportDocument cryRpt = new ReportDocument();
TableLogOnInfos crtableLogoninfos = new TableLogOnInfos();
TableLogOnInfo crtableLogoninfo = new TableLogOnInfo();
ConnectionInfo crConnectionInfo = new ConnectionInfo();
Tables CrTables;

cryRpt.Load(MapPath("CrystalReport.rpt"));
crConnectionInfo.ServerName = "ICELand";
crConnectionInfo.DatabaseName = "MiniOPT";
crConnectionInfo.UserID = "sa";
crConnectionInfo.Password = "121212";

CrTables = cryRpt.Database.Tables;
foreach (CrystalDecisions.CrystalReports.Engine.Table CrTable in CrTables)
{
    crtableLogoninfo = CrTable.LogOnInfo;
    crtableLogoninfo.ConnectionInfo = crConnectionInfo;
    CrTable.ApplyLogOnInfo(crtableLogoninfo);
}

CrystalReportViewer1.ReportSource = cryRpt;
CrystalReportViewer1.RefreshReport(); 

Dim cryRpt As New ReportDocument()
Dim crtableLogoninfos As New TableLogOnInfos()
Dim crtableLogoninfo As New TableLogOnInfo()
Dim crConnectionInfo As New ConnectionInfo()
Dim CrTables As Tables

cryRpt.Load(MapPath("CrystalReport.rpt"))
crConnectionInfo.ServerName = "ICELand"
crConnectionInfo.DatabaseName = "MiniOPT"
crConnectionInfo.UserID = "sa"
crConnectionInfo.Password = "121212"

CrTables = cryRpt.Database.Tables
For Each CrTable As CrystalDecisions.CrystalReports.Engine.Table In CrTables
	crtableLogoninfo = CrTable.LogOnInfo
	crtableLogoninfo.ConnectionInfo = crConnectionInfo
	CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next

CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.RefreshReport()