Kørsel af stored procedure fra Excel

Hej

Jeg vil gerne køre en SP fra Excel. Det specielle ved denne SP er at den skal afvikle en DTS.

CREATE PROCEDURE [dbo].[amrTest] AS
exec master..xp_cmdshell 'dtsrun /S (local) /U Username  /P password /N Test'
GO

Jeg kan godt få lov til at køre SP'en fra SQL Query Analyzer, men når jeg gør det fra VBA får jeg følgende fejlen: "execute permission denied on object 'xp_cmdshell', database 'master', owner".

Hvad gør jeg forkert?

Fra VBA bruges funktionerne:

Function getRS(SQL As String) As ADODB.Recordset
    Dim cnn As String
    cnn = "File Name=" & ThisWorkbook.Path & "\XXX.udl"
    Set getRS = New ADODB.Recordset
    getRS.Open SQL, cnn
End Function

Private Sub checkGetRS()
  Dim rs As New ADODB.Recordset
  Set rs = getRS("amrtest")
  Debug.Print rs.RecordCount
  Set rs = Nothing
End Sub