Error compilación clave accesos formulario access

En la siguiente rutina, me da un error en los campos marcados con negrita y desconozco cual pueda ser la razón.

Private Sub Form_Open(Cancel As Integer)
Dim PassOk As String
Dim PassTyped As String
PassOk = "agente007"
PassTyped = InputBox("CLAVE DE ACCESO", "Introduce la clave requerida para acceder a orientación asistencia", "")
If PassTyped <> PassOk Then
Call MsgBox("Password incorrecto", 48, "Atención")
Cancel = True
End If
DoCmd.Close, acForm "PANTALLA PRINCIPAL DPTO COMERCIAL"
End Sub