Kalde stored procedure fra excel

adCmdStoredProc = 4
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=SQLOLEDB;Data Source=XXXXPC;Initial Catalog=MinDB;Integrated Security=SSPI;"
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = con
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "usp_test"
Set rs = cmd.Execute

virker i VBS - prøv om det virker  i VBA

OK ?