Access - Administrador

Que hay , estoy realizando una base de datos , y necesitaria saber como hacer referencia en basic al administrador, p.ej. si haces click en un boton que no te deje acceder a el si no eres el administrador, algo asi

=>U2
Marcks

Un ejemplo para sacar los login:

Dim cnn1 As ADODB.Connection, rst1 As New ADODB.Recordset
Set cnn1 = CurrentProject.Connection
Set rst1 = cnn1.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
Do Until rst1.EOF
MsgBox rst1.Fields("computer_name") & rst1.Fields("login_name")
rst1.MoveNext
Loop

epero que te sirva.