I use the next code
Code:
'Declarations
Public CRReport As CrystalDecisions.CrystalReports.Engine.ReportDocument
Public CRTable As CrystalDecisions.CrystalReports.Engine.Table
Public CRTLI As CrystalDecisions.Shared.TableLogOnInfo
'some procedure
CRReport = New CrystalDecisions.CrystalReports.Engine.ReportDocument
CRReport.Load(GRutaRpts & "MyReport.rpt", CrystalDecisions.Shared.OpenReportMethod.OpenReportByTempCopy)
For Each Module1.CRTable In CRReport.Database.Tables
CRTLI = CRTable.LogOnInfo
With CRTLI.ConnectionInfo
.ServerName = "MyDSNName"
.UserID = "MyUserName"
.Password = "MyPassword"
.DatabaseName = "MyDBName"
End With
CRTable.ApplyLogOnInfo(CRTLI)
Next CRTable