Pero eso va a depender de como almacenes la contraseña, lo puedes hacer con archivos de texto, bd, registro, en fin. Acá te dejo un ejemplo SENCILLO usando bd, incluso este ejemplo no es el mejor, pero es algo por donde empezar, lo que no entiendas lo preguntas. Y si no te gusta buscamos otra alternativa.
Ejemplo SENCILLO usando bd...Si quieres algo mas sencillo:
Option Explicit
Dim PassWord As String
Private Sub CmdComprobar_Click()
If Text1.Text = PassWord Then
MsgBox "Acceso Autorizado"
' Mostrando el formulario inventario
FormInventario.Show
Else
MsgBox "Acceso Denegado"
End If
End Sub
Private Sub Form_Load()
PassWord = "123"
End Sub
¡saludos!