Call SQL stored procedure that inserts parameter value

[sck10]

Hello,

I am using the following that calls a SQL Server 2005 sproc to get a
recordset. My question is how do you call a stored procedure that inserts a
new record, but does not return any records?


Sub vbaInsertNewSecurityGroupADO1(groupName As String)
Dim cnnBsom As ADODB.Connection
Dim cmdBsom As ADODB.Command
Dim rsBsom As ADODB.Recordset

'Open a connection by referencing the ODBC driver.
Set cnnBsom = New ADODB.Connection
cnnBsom.ConnectionString = "DSN=cnnBsom;Trusted_Connection=Yes"
cnnBsom.Open
Set rsBsom = cnnBsom.Execute("EXECUTE xsvcrdiness.spcKnowledgeStore
'FindProductURL', '681'", adCmdStoredProc)
MsgBox rsBsom("strURL") & ": " & rsBsom("ProductURL_ID")
rsBsom.Close
cnnBsom.Close
Set cnnBsom = Nothing
End Sub