Ejecutar un DTS de SQLserver desde visula basic

[OYEME]

bueno aquite envio el codigo donde hago un bacjup desde vb hay un sp que se llama sp_addumpdevice y lo llamo para eso necesito una vraiable de tipo connection

Function BACKUP(XDIS As String) As String
On Error GoTo xerr:
dim cna s adodb.connection
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "provider = sqloledb;data source = " & data & ";initial catalog=" & base & ";user id=" & usid & ";pwd = " & pasw & ""

SQL = "EXEC sp_addumpdevice 'disk','" & XDIS & "','C:\mssql7\backup\" & XDIS & ".dat'"
cn.Execute (SQL)
SQL = "BACKUP DATABASE TRANSPORTE TO " & XDIS & ""
cn.Execute (SQL)
BACKUP = "Se realizo el proceso satisfactoriamente"
Exit Function
xerr:
BACKUP = Err.Description + "Error en el proceso" + Chr(32) + "El dispositivo ya existe o la base de datos esta en uso"
End Function