Stored Procedures for database operations using vb

The stored procedure is as follows:
Create proc sp_recordset
@ Bbb int
As
Select * from aaa where bbb = @ bbb
The vb Code is as follows:

Dim cmd As ADODB. Command
Dim conn As ADODB. Connection
Dim rs As ADODB. Recordset
Dim ADOPrm
Set ADOPrm = New ADODB. Parameter


Set rs = New ADODB. Recordset
Set conn = New ADODB. Connection
Conn. ConnectionString = "Provider = SQLOLEDB.1; Persist Security Info = False; User ID = sa; Initial Catalog = DB_PurchaseOrder; Data Source = ."
Conn. Open

Set cmd = New ADODB. Command
Cmd. CommandType = adCmdStoredProc
Cmd. ActiveConnection = conn
Cmd. CommandText = "sp_recordset"
Set ADOPrm = cmd. CreateParameter ("@ bbb", adInteger, adParamInput)
Cmd. Parameters. Append ADOPrm
Cmd. Parameters ("@ bbb"). Value = "123"

Set rs = cmd. Execute ()

MsgBox rs (0) & rs (1)