LISTING 2: VB COM Component Code Snippet That Invokes a Stored Procedure

Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim param1 As Parameter, param2 as Parameter
cn.Open ConfigObject.myConnectionString
Set cmd.ActiveConnection = cn
cmd.CommandText = "sp_checkloginrights"
cmd.CommandType = adCmdStoredProc
Set param1 = cmd.CreateParameter("userID", adInteger, adParamInput)
cmd.Parameters.Append param1
Set param1 = cmd.CreateParameter("objectID", adInteger, adParamInput)
cmd.Parameters.Append param2
Set rs = cmd.Execute