至少有一个参数没有被指定值

Question

原来是这样的
Private Sub UserInfo_Click()
   If add = False And modify = False Then
     With userinfo.SelectedItem
                EditUser.Text = .Text
     End With
     strSQL = "select 密码 from 账号 where 用户名 = '" & EditUser.Text & "'"
     conn.Open
     rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic
     Password = rs("密码")
     rs.Close
     conn.Close
     CmdModify.Enabled = True
   Else: MsgBox "请保存后再操作!", 48, "系统提示"
   End If
End Sub后来我把strSQL = "select 密码 from 账号 where 用户名 = '" & EditUser.Text & "'"
增加了一点变成 strSQL = "select 密码 from 账号 where 类型ID = 1 and 用户名 = '" & EditUser.Text & "'"
然后就报错了说”至少有一个参数没有被指定值“
错误地方指示rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic这句代码
请高手解答

Answer 1

请检测SQL语句中的字段名是否正确！

Answer 2

[code=SQL]strSQL = "select 密码 from 账号 where 类型ID = 1 and 用户名 = '" & EditUser.Text & "'" 
code]
1.请检查红色标记出的字段是否和数据库中的一致！
2.断点是在rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic这句代码，但实际上还是SQL语句的错！