this problem may come if your Server Name / Database Name is different from what u have selected at design time
To solve this problem-
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Public Shared Sub Sub_CRCrystalLogon(ByRef rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument)
Dim crTableLogOnInfo As TableLogOnInfo = New TableLogOnInfo
Dim crConnectionInfo As ConnectionInfo = New ConnectionInfo
Dim crDatabase As CrystalDecisions.CrystalReports.Engine.Database
Dim crTables As CrystalDecisions.CrystalReports.Engine.Tables
Dim crTable As CrystalDecisions.CrystalReports.Engine.Table
crConnectionInfo.ServerName = Server Name
crConnectionInfo.DatabaseName = DataBaseName
crConnectionInfo.UserID = DBUserID
crConnectionInfo.Password = DBPassword
crDatabase = rpt.Database
crTables = crDatabase.Tables
For Each crTable In crTables
crTableLogOnInfo = crTable.LogOnInfo
crTableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next
End Sub