Запуск хранимых процедур MSSQL - VB

Dim cn As Connection
Dim cmd As Command
Dim rs As Recordset
 
Set cmd = New Command
Set cn = New Connection
cn.Open 'Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=my_db;Data Source=my_server'
Set cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = 'sp_MyStoredProcedure'
Set rs = cmd.Execute
 
' Сделай что нибудь с результатами
 
Set rs = Nothing
Set cmd = Nothing
End Sub