Question

数据库引擎不能将密码识别为一个有效的字段名或表达式

Dim msg
oldmark = Data1.Recordset.Bookmark
msg = Trim(InputBox("请输入原用户密码", "确认原密码"))
msg = "密码 like '" & msg & "'"
Data1.Recordset.FindFirst msg
If Data1.Recordset.NoMatch Then
MsgBox ("你无权增加用户")
Data1.Recordset.Bookmark = oldmark
Else
Data1.Recordset.AddNew
Command4.Enabled = True
End If

Answer 1

[密码]