COMO CREAR UN SISTEMA DE BIBLIOTECA EN ACCESS 2016

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