COMO CREAR UN SISTEMA DE BIBLIOTECA EN ACCESS 2016 HD

COGIDO DEL LOGIN: Dim IdUsuario As Integer If InStr(Me.txtUsuario, ") = 0 And InStr(Me.txtUsuario, ") = 0 Then If DCount("*", "Usuarios", "[Usuario] = & Me.txtUsuario & AND [Pass] = & Me.txtPass & ") Then IdUsuario = DLookup("[Id_Usuario]", "Usuarios", "[Usuario]= & Me.txtUsuario & AND [Pass] = & Me.txtPass & ") DoCmd.OpenForm "FormPrincipal", , , , , , IdUsuario DoCmd.Close acForm, "FormLogin" Else MsgBox "Usuario o contraseña incorrectos", vbExclamation, "Aviso" End If Else MsgBox "Usuario o contraseña incorrectos", vbExclamation, "Aviso" End If