Calling A Dts Package From VB.NET

hi,

i'm trying to call a dts package from vb.net.

i got 2 examples which both don't work.

first one gives me a [DBNETLIB][ConnectionOpen(Connect()).]SQL Server does not exist or access denied error.

source code:
Dim serverName As String = "SERVERNAME"
Dim oPackage As New DTS.Package()
Dim oStep As DTS.Step
Dim pVarPersistStgOfHost As Object = Nothing

oPackage.LoadFromSQLServer(serverName, "USERID", "PASSWORD",  
  DTSSQLServerStorageFlags.DTSSQLStgFlag_Default, _
  "DTSPASSWORD", Nothing, Nothing, "DTSPACKAGENAME", pVarPersistStgOfHost)

For Each oStep In oPackage.Steps
      oStep.ExecuteInMainThread = True
Next

oPackage.Execute()

Dim err As Long
Dim source, description, message As String
For Each oStep In oPackage.Steps
If oStep.ExecutionResult = DTSStepExecResult.DTSStepExecResult_Failure Then
        oStep.GetExecutionErrorInfo(err, source, description)
        message = String.Format("ErrorCode: {0}, Source: {1}, Description: {2}", err.ToString(), source,
                             description)
Else
         message = "Success"
End If
Next

oPackage.UnInitialize()
oPackage = Nothing

second example tries to create a dts package dynamically. this time i get the error that the CustomTask can not be casted, somehting about the QueryInterface.

source code:
Dim oPackage As New Package2()
Dim oConnection As Connection2
Dim oStep As Step2
Dim oTask As Task
Dim oCustomTask As BulkInsertTask


oConnection = oPackage.Connections.[New]("SQLOLEDB")
oStep = oPackage.Steps.[New]()
oTask = oPackage.Tasks.[New]("DTSBulkInsertTask")
oCustomTask = CType(oTask.CustomTask, BulkInsertTask) <-- error

With oConnection
       .Catalog = "CATALOG"
       .DataSource = "SERVERNAME"
       .ID = 1
       .UseTrustedConnection = True
       .UserID = "USERID"
       .Password = "PASSWORD"
End With

oPackage.Connections.Add(oConnection)
oConnection = Nothing

With oStep
        .Name = "InsertGemal"
        .ExecuteInMainThread = True
End With

With oCustomTask
        .Name = "InsertGemal"
        .DataFile = "D:ImportGemal.dat"
        .ConnectionID = 1
        .DestinationTableName = "Gemal"
        .FieldTerminator = ";"
        .RowTerminator = "
"
End With

oStep.TaskName = oCustomTask.Name

With oPackage
        .Steps.Add(oStep)
        .Tasks.Add(oTask)
        .FailOnError = True
End With

oPackage.Execute()

oPackage.UnInitialize()
oPackage = Nothing

any help highly appreciated!

t.i.a.,
ratjetoes.