Contraseña para el ingreso a la formularios

Buen día expertos, les escribo porque tengo un problema, estoy realizando una base de datos para un almacen, ya tengo todas las tablas formularios etc, el problema esta en que quiero establecer permisos a los usuarios que ingresen es algo sencillo básicamente un usuario tipo administrador y otro usuario vendedor, estuve tratando con un código que encontré acá mismo
*****************************************************************
If usuario.Text = "xxxx" And contraseña.Text = "1234" Then
MsgBox "Bienvenido " & usuario & " Feliz Dia"
DoCmd.OpenForm "nombredelformulario"
DoCmd.Close acForm, "Inicio"
Else
MsgBox "Usuario o contraseña invalidos por favor verifique", vbCritical, "Usuario o Contraseña Invalida"
End If
******************************************************************
Pero me da un error al ejecutarlo dice lo siguiente "se ha producido el error '424' en tiempo de ejecución" se requiere un objeto, quisiera saber como podría solucionarlo gracias