Take a look at this and try the same
Dim applNpowerpay As New CRAXDDRT.Application
Dim reportNpowerpay As New CRAXDDRT.Report
'change mousepointer
Screen.MousePointer = vbHourglass
Set reportNpowerpay = applNpowerpay.OpenReport("\\Dahl\Input\79\179\8c03 0db117f724a.rpt")
reportNpowerpay.Database.LogOnServer "pdsodbc.dll", "Commercial Live", "", "sysprogress", "sysprogress"
For i = 1 To reportNpowerpay.Database.Tables.Count
reportNpowerpay.Database.Tables(i).SetLogOnInfo "Commercial Live", "", "sysprogress", "sysprogress"
Next i
'delete the saved data
reportNpowerpay.DiscardSavedData
|