Lanzar un package DTS SQL Server vía .Net

Imports System.Runtime.InteropServices
Imports DTS
 
' ...
 
Private Sub RunDTS(ByVal servername As String, ByVal dtsname As String)
  Dim package As New Package()
 
  package.LoadFromSQLServer(servername ,"","", DTSSQLServerStorageFlags.DTSSQLStgFlag_UseTrustedConnection, , , , dtsname)
 
  package.Execute()
 
End Sub