VB Code:
Dim rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim tbl As CrystalDecisions.CrystalReports.Engine.Table
rpt = New testcr()
For Each tbl In rpt.Database.Tables
Dim tbllogin As New CrystalDecisions.Shared.TableLogOnInfo()
tbllogin.ConnectionInfo.UserID = "admin"
tbllogin.ConnectionInfo.Password = "eyetalion"
tbl.ApplyLogOnInfo(tbllogin)
Next
CRV.ReportSource = rpt
Note that if you set password for Access database (at database level, not user-level security), the user ID will be "admin".
VB Code:
For Each tbl In rpt.Database.Tables
Dim coninfo As New CrystalDecisions.Shared.ConnectionInfo()
Dim tbllogin As New CrystalDecisions.Shared.TableLogOnInfo()
coninfo.Password = "mypassword"
coninfo.UserID = "myuser"
coninfo.ServerName = "myserver"
coninfo.DatabaseName = "mydatabse"
tbllogin.ConnectionInfo = coninfo
tbl.ApplyLogOnInfo(tbllogin)
Next