一个给数据库添加数据的简单问题！急（在线等待）

Question

Private Sub Command1_Click()
Dim msg
old = Data1.Recordset.Book
msg = Trim(InputBox("请输入原用户密码", "查询"))
msg = "密码 like '" & msg & " '"
Data1.Recordset.FindFirst msg
If Data1.Recordset.noMatch Then
MsgBox ("你无权增加用户")
Data1.Recordset.Book = old
Else
Data1.Recordset.AddNew
Command3.Enabled = True
End IfEnd Sub我要的效果是：现输入用户密码，如果和数据库里的数据相匹配，就开始添加用户。如果不匹配就打出“你无权增加用户”字样。但是即使密码正确都会出现“你无权增加用户”！为什么呢？谢谢了！

Answer 1

msg = "密码 like '" & msg & " '"
其中like运算符将返回一个布尔值(TRUE/FALSE/NULL)
这样你的msg将是一个布尔值

Answer 2

msg = "密码 like '" & msg & " '" 这句不要

Answer 3

msg = "密码 like '" & msg & "'"  '删去一个空格。

Answer 4

应该是这样吧！
msg="密码='" & chr(34) & msg & chr(34) & "'"
或msg="密码='" & msg & "'"