Execute a SQL Server DTS Package Remotely

1. Create a DTS package. It can be an import from Excel into SQL Server.
2. Set a reference to Microsoft DTS Package Object Library in any VB project. You might need to load SQL Server on the development machine.
3. Use the LoadFromSQLServer method on the package object:

Private Sub cmdRefreshCustomers_Click()
Dim oPackage As New DTS.Package
On Error GoTo eh
'Load the package that we created previously 
' ("Customer_List").
'Use the global variables for SQL Server name, UserID, 
'and Password.
oPackage.LoadFromSQLServer sServername, sUid, sPwd, _
	DTSSQLStgFlag_Default, _
	"", "", "", "Customer_List", 0
'Execute the Package
oPackage.Execute
MsgBox oPackage.Description, vbInformation, _
	"Re-import Excel sheet."
'Clean up.
Set oPackage = Nothing
Exit Sub
eh:
MsgBox Err.Description, vbCritical, _
	"Error refreshing Customer List"
'For more sophisticated sample VB code with DTS, go 
'to the SQL Server 7 CD and browse these folders: 
'devtools\samples\dts\dtsempl1 or 2 or 3.
End Sub