ci sono riuscito!!!!

scrivo qui il codice se interessasse a qualcuno.
grazie comunque a tutti coloro che mi hanno risposto.

Set cn = CreateObject("ADODB.Connection")
Dim ServerName As String, DatabaseName As String

ServerName = "nomeserver"
DatabaseName = "nomedatabase"

cn.Provider = "sqloledb"

cn.Properties("Data Source").Value = ServerName
cn.Properties("Initial Catalog").Value = DatabaseName

cn.Properties("Integrated Security").Value = "SSPI"

cn.Open

cn.Execute ("[storedprocedure]")


Funziona!!!!!