用传参的方法总是提示必须声明变量@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