Error When VB Runs DTS Package

Hi ,

I am trying to run DTS package (stored on SQL Server) using Visual basic but i am getting the following error

Runtime error '-2147217843 (80040e4d)'

Login failed for 'MyUserID'


*************************************
i used the following code in VB program

Sub Command1_Click()
Dim dtsp As New DTS.Package
dtsp.LoadFromSQLServer _
ServerName:="MyServer", _
ServerUserName:="MyUserID", _
ServerPassword:="MyPassword", _
PackageName:="DTSDemo"
dtsp.Execute
End Sub

*************************************

I can Run the package direct from SQL server but get error by Vb program. Any idea why it is so.

Thanks