The following code written in VB fails when run on a client on the line:

oPackage.LoadFromSQLServer "RinoldiSQL", , , 256, , , , "Impo*****k"'

the error returned is:

-2147024809(80070057)

The parameter is incorrect.


The complete code is as follows

Sub Impo*****k()
Dim oPackage As DTS.Package
Set oPackage = CreateObject("DTS.Package&#34

'Import Tables from PPBK
oPackage.LoadFromSQLServer "RinoldiSQL", , , 256, , , , "Impo*****k"

' Execute the Package
oPackage.Execute

End sub

Please Help