用传参的方法总是提示必须声明变量@n

Dim conn As New ADODB.Connection
Dim cmd As New
Dim rs As New ADODB.Recordset

conn.Open db.GetStrConn
cmd.ActiveConnection = conn
= adCmdText

cmd.Parameters.Append cmd.CreateParameter("@n", adVarChar, adParamInput, 50, m_user.Name)
cmd.Parameters.Append cmd.CreateParameter("@p", adVarChar, adParamInput, 50, m_user.Pass)
= "select * from Users where [UserName]=@n and [UserPassword]=@p"

Set rs = cmd.Execute