You do realize that that won't provide any security at all, I hope.

As Doug said: This is absolutely NO security at all ...  but ...

Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM tblUsers WHERE strUserName='" & YourCurrentUser & "'", CurrentProject.Connection

If (rst.EOF and rst.BOF) Then
    MsgBox "You don't have permission to open this database. Contact the Adminstrator for assistance", vbOkOnly
    Application.Quit
End If   

Anyone could still simply link to the database from another Access database, open tblUsers, and add themselves to the
table ...

Scott McDaniel
scott@takemeout_infotrakker.com
www.infotrakker.com

The easiest place to get the current user from is the command
line. Create a short cut to msaccess.exe, something like this:

"c:\program files\...\msaccess.exe" "c:\my.mdb" /user=%user%
/wrkgrp="m:\my.mdw"

Add all the users to a workgroup file, using there login name,
the same as you see if you type
   Set
at the dos prompt (open a command window).

Add three groups to the workgroup file, r, rw, af.
Add each of the new users to the appropriate group.

(david)