vb对数据库操作用存储过程

存储过程如下create  proc sp_recordset   @bbb int  as   select * from aaa where bbb = @bbbvb代码如下：  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)