请问下怎么在ADO中使用参数化查询

Question

Private Sub Command1_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim cmd As New ADODB.Command
    Dim prm As New ADODB.Parameter
    cn.ConnectionString = "Provider=SQLOLEDB.1;Password=liujun38660;Persist Security Info=True;User ID=chat;Initial Catalog=chat;Data Source=."
    cn.Open
    cmd.ActiveConnection = cn
    cmd.CommandText = "select * from 帐号 where 昵称=?"
    cmd.CommandType = adCmdText
    prm = cmd.CreateParameter("@?", adVarChar, adParamInput, 10, "大侠")
    cmd.Parameters.Append prm   '此行报错，报错信息为：不正常地定义参数对象。提供了不一致或不完整信息
    '...
    '在此补上rs调用参数化查询取得符合条件记录的代码
    '...
    cn.Close
End Sub我自己研究，写到添加参数就不知道怎么写了，以前用RS都是直接OPEN数据库的，现在也不知道怎么取得查到的记录，哪位高手能给个示例吗？或者帮我的代码简要地改改，谢谢

Answer 1

cmd.Parameters.Append cmd.CreateParameter("@a", adVarChar, adParamInput, 10, "大侠")
set rs=cmd.excute()