vb调用存储过程

Public Sub procExe(ByVal procName As String, ByVal pch As String)  

  Dim cn As ADODB.Connection 

  Dim cmd As ADODB.Command  cn.ConnectionString = "" 

  cn.Open 

  Set cmd.ActiveConnection = cn 

  cmd.CommandType = adCmdStoredProc 

   cmd.CommandText = procName 

  cmd.Parameters(1) = pch 

  aa = cmd.Parameters(2) 

  bb = cmd.Parameters(3) 

  cn.Close 

  Set cmd = Nothing 

  Set cn = Nothing

End Sub