Lo mas sencillo posible (dejando de lado lo de las validaciones y la seguridad):
Debes poner al inicio de tu programa un formulario en donde tipear la contraseña, con un botón de aceptar, y una tabla de contraseñas válidas en tu BD. Tomas el valor tipeado en el evento click del botón y vas y haces un select count a la tabla where campocontraseña = valor. Si la consulta devuelve mas de 0, muestras la pantalla principal de tu programa. Si no, muestras un mensaje que la contraseña no es válida.

Tambien visual basic trae un asistente que te crea todo el formulario ya con todo los objetos creados, con todo y codigo fuente, ya solo le agregarias el usuario y contraseña en las lineas indicadas...

pues las bases de datos nos e asen en Visula Basic, en Visual basic administras la base de datos y ases la coneccion a la base de datos q se ase con Acces:
(no sabre escrivir, pero programo de marabilla!)

Public conexion As ADODB.Connection
Public tabla As ADODB.Recordset

Private Sub Cmdaceptar_Click()
Set tabla = New ADODB.Recordset
Set tabla = conexion.Execute("select* from usuarios where (usuario='" & Txtusuario.Text & "' and pass='" & Txtpass.Text & "')", , adCmdText)
If tabla.EOF Then
MsgBox "usuario o contraseña no valida, intenta de nuevo", vbInformation, "AVISO"
Txtpass.Text = ""
Txtusuario.Text = ""
Else
MsgBox "BIENVENIDO al sistema de biblioteca", vbExclamation, "AVISO"
niv = tabla(2)
Call MDIsistema.Show
FRMENTRADA.Hide
End If
End Sub
---------------------------------------------------------
Private Sub Cmdcancelar_Click()
End
End Sub
---------------------------------------------------------
Private Sub Form_Load()
On Error GoTo bandera

'crea la conexion a la base de datos
Set conexion = New ADODB.Connection
conexion.ConnectionString = "provider=microsoft.ACE.OLEDB.12.0;Data source=\Mis Documentos\puebla\Biblioteca.accdb;persist security info=false"
conexion.Open
Exit Sub
bandera:
MsgBox Err.Description, vbCritical, "AVISO"
End

End Sub
--------------------------------------------------------
Private Sub Txtpass_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii <> 8 Then
KeyAscii = KeyAscii + 20
End If
End Sub
---------------------------------------------------------
Private Sub Txtusuario_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
---------------------------------------------------------

cada comado tare su nombre, por ejemplo el rpimero es el comando aseptar, o el boton de aseptar.
si sabes de Visual basic, no tendras problemas.

saludos.