-- Beispiel: Ausführen eines DTS-Pakets vom lokalen Server
--

DECLARE @hr int
DECLARE @paket int

EXEC @hr = master.dbo.sp_OACreate 'DTS.Package', @paket output
print @hr
EXEC @hr = master.dbo.sp_OAMethod
                 @paket,
                 'LoadFromSQLServer',
                 NULL,
                 @@servername,
                 NULL,
                 NULL,
                 256, -- vertraute Verbindung
                 NULL,
                 NULL,
                 NULL,
                 'Beispiel2' -- Name des Pakets
print @hr
exec @hr = master.dbo.sp_OAMethod  @paket,
      'Execute',
      NULL
print @hr

EXEC @hr = master.dbo.sp_OADestroy @paket
print @hr
GO

Link-Tipp zum Thema "Visual Basic": www.vbhelp.net/

Einige Tutorials zu VB, Code Bibliothek und mehr..