Dim crrpt As New crrept
Dim cninfo As New ConnectionInfo
Dim tabloginfo As New TableLogOnInfo
Dim crtable As Table
Dim crtables As Tables
crrpt.Load(“crrept.rpt”)

With cninfo
.ServerName = “orcl”
.DatabaseName = “”
.UserID = “myuserid”
.Password = “mypassword”
End With

crrpt.SetParameterValue(“VI_TABLEID”, “GSCH0000000000001144″)

crtables = crrpt.Database.Tables

For Each crtable In crtables
tabloginfo = crtable.LogOnInfo
tabloginfo.ConnectionInfo = cninfo
crtable.ApplyLogOnInfo(tabloginfo)
crtable.Location = “MYUSERID.PKG_TEMP.” + crtable.Location.Substring(crtable.Location.LastIndexOf(“.”) + 1)
Next crtable

With crView
.ReportSource = crrpt
.Refresh()
End With