Set mainReportTableCollection = Session("oRpt").Database.Tables
For Each mnTable in mainReportTableCollection
With mnTable.ConnectionProperties
'.Item("Provider")=""
.Item("user ID") = CStr(ReportUID)
.Item("Password") = CStr(ReportPWD)
.Item("Data Source") = CStr(ReportDSN)
.Item("Initial Catalog") = "tempdb"
mnTable.Location=CStr(TmpTable)
End With
Next