sql сервер не указан, поэтому на примере Oracle. Строку подключения можешь взять тут
connectionstrings.comPrivate Sub CommandButton1_Click()
'Строка подключения
cConn = "Driver={Oracle in OraClient11g_home1};Dbq=<SID>;Uid=<User>;Pwd=<Password>;"
Dim Cn As ADODB.Connection
Dim Cm As ADODB.Command
Set Cn = New ADODB.Connection
Cn.Open cConn
Set Cm = New ADODB.Command
Cm.ActiveConnection = Cn
Cm.CommandText = " begin MyStorageProc('" + Range("A1") + "') end;"
Cm.CommandType = adCmdText
Cm.Execute
End Sub
