VB中执行存储过程的问题！

Question

代码如下：
'连接 KQXT成功
Dim iDb As ADODB.Connection, iRe As ADODB.Recordset
   Dim iConcStr$, iSql$, iReturn$, iI&
    Dim rs As Recordset
      
    '创建对象
    Set iDb = New ADODB.Connection
   ' Set iRe = New ADODB.Recordset
    '连接数据库服务器,根据你的情况修改连接字符串
    iConcStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=KQXT;Data Source=localhost" iDb.Open iConcStr问题：
连接数据库成功以后，怎么样执行存储过程sp_revokedbaccess 'KQXT'
请大家帮助！
谢谢！

Answer 1

http://blog.csdn.net/online/archive/2004/08/05/66376.aspx

Answer 2

Dim mConn As ADODB.Connection
Dim rs1 As ADODB.RecordsetDim cmd As ADODB.Command
Dim param As ADODB.ParameterSet cmd = New ADODB.Command
Set rs1 = New ADODB.Recordset
cmd.ActiveConnection = mConn
cmd.CommandText = "insert_users"
cmd.CommandType = adCmdStoredProcSet param = cmd.CreateParameter("truename", adChar, adParamInput, 20, Trim(txttruename.Text))
cmd.Parameters.Append param
Set rs1 = cmd.Execute
Set cmd = Nothing
Set rs1 = Nothing上面那位大侠已经告诉你了，我这是在他那里考的代码，把他告诉你的地址考到ie的地址栏里
运行一下，你会得到你想要的