报无效限定符的错误，，急啊

转体118

Private Sub Command4_Click()
Set conn = CurrentProject.Connection
Set zy = New ADODB.Recordset
zy.Open "员工", conn
Dim nam As String
Dim passw As String
Me!name.SetFocus
nam = Me!name.txt
'passw = Me!password.txt
If IsNull(nam) Or IsNull(passw.Value) Then
MsgBox "用户名和密码不能为空，请重新输入", vbOKOnly + vbInformation, "重要警告"
Else
If nam <> zy!姓名 Or passw <> zy!密码 Then
MsgBox "用户名或密码错误，请重新输入", vbOKOnly + vbInformation, "重要警告"
name.srtfocus
name.Text = ""
password.SetFocus
password.Text = ""
name.srtfocus
Else
zy.Close
zy.Open "登录记录", conn, adopendynamic, adlockoptimistic
zy.AddNew
zy!姓名 = nam
zy!登录时间 = Now()
zy!退出时间 = CDate(0)
zy.Update
zy.Close
DoCmd.Close
DoCmd.OpenForm "菜单"
End If
End If
End Sub

轻风

按调试后看错误在哪一行代码上。我有发现一个错误，红字部分是SetFocus吧：
If nam <> zy!姓名 Or passw <> zy!密码 Then
MsgBox "用户名或密码错误，请重新输入", vbOKOnly + vbInformation, "重要警告"
name.srtfocus
name.Text = ""
password.SetFocus
password.Text = ""
name.srtfocus
Else