Visual Basic - Usuarios y Contraseñas...Por Favor

Hola a Todos!

Estoy haciendo un programita con bases de datos en Access ya lo he terminado a ahora tengo que dar permisos y contraseñas (son 3 usuaros) con la opcion de que el Administrador pueda agregar mas usuarios.

Si es posible que alguien me envie un ejemplo de como realizar esto, le estare muy agradecida.

Dejo codigo de la contraseña que yo tengo que en si solo muestra la siguiente forma pero no permite abrir la base de datos ni dar permisos, no se si sea posible que sobre la misma se pueda trabajar para los permisos...

Que esten bien, bye.

Option Explicit
Dim db As Database, rs As Recordset
Dim ds As Workspace
Dim ws As Workspace
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean

Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long


sBuffer = ("ADMINISTRADOR") 'Space$(50)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
txtUserName.Text = Left$(sBuffer, lSize)
Else
txtUserName.Text = vbNullString
End If

'barra de progreso
Timer1.Enabled = False

End Sub

Private Sub aceptar_Click()
On Error GoTo Err_Loging

If txtPassword.Text = "abi" Then
OK = True
'Me.Hide
Progreso.Value = 0
Timer1.Enabled = True
Progreso.Visible = True

'Form2.Show
'Set ws = DBEngine.Workspaces(0)
'Set ds = DBEngine.Workspaces(0)
'Set db = ws.OpenDatabase(App.Path & "\BDproyecto.mdb")
'Set rs = db.OpenRecordset("select * usuarios where contraseña="" & txtPassword.text & "" and nombre="" & txtUserName.text &""")

'If Not rs.EOF Then
' Form2.Show
' Unload Me
' Exit Sub
'Else
' MsgBox "El usuario no existe", vbInformation, "Mensaje"
' txtUserName.SetFocus
' End If

Else
MsgBox "La contraseña o el usuario no es válida; vuelva a intentarlo", , "Inicio de sesión"
txtPassword.SetFocus
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
Progreso.Visible = False

End If
Err_Loging:
'MsgBox "No se puede acceder al sistema...", vbCritical + vbOKOnly, "Error"

End Sub

Private Sub cancelar_Click()
OK = False
Me.Hide
End
End Sub

Private Sub Timer1_Timer()
'Si el progreso todavía no termina, seguir aumentando Value hasta 100
With Progreso
If .Value < .Max Then
.Value = .Value + 1
Label1.Caption = Int(Progreso.Value) & "%"
Else
'Termino
'MsgBox "Proceso Terminado", , "Barra de Progreso"
Form2.Show
frmLogin.Visible = False
'Deshabilitamos el Timer
Timer1.Enabled = False
Label1.Caption = Int(Progreso.Value) & "%"

End If
End With
End Sub

Esto te puede servir, entra aqui.
http://www.lawebdelprogramador.com/codigo/enlace.php?idp=224&id=93&texto=Visual+Basic