Most updated code.......

Imports CrystalDecisions.CrystalReports
Imports CrystalDecisions.ReportSource
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

dim UID as string
dim UPwd as string
dim SQLSrvName as string
dim Databasename as string
UID= "sa"
UPWD= " " 'in double codes pass password
SQLSrvName= " " 'in double codes pass servername
Databasename= " " 'in double codes pass databasename

Dim rptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument rptDocument.Load(strReportPath)
Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo ConInfo.ConnectionInfo.UserID = UID
ConInfo.ConnectionInfo.Password = UPwd
ConInfo.ConnectionInfo.ServerName = SQLSrvName ConInfo.ConnectionInfo.DatabaseName = Databasename

For IntCounter = 0 To rptDocument.Database.Tables.Count - 1
rptDocument.Database.Tables(IntCounter).ApplyLogOnInfo(ConInfo)
Next

rptDocument.SetDataSource(DS.Tables(0))