Eu criei a seguinte rotina:
No banco de dados de usuários, acrescentei o campo "tipo" usando 1 para administrador e 0 para usuário padrão, pode-se acrescentar outros tipos de usuário, por exemplo só para consulta, só para acrescentar registros, etc.
No form de login, uma variável public registra o valor desse campo.
No form_load de cada tela, é verificado o valor armazenado na variável do form login, e habilita ou desabilita os botoes da tela.
If frmLogin.priv <> "1" Then
cmdincluir.Enabled = False
cmdalterar.Enabled = False
cmdconsultar.Enabled = True
cmdexcluir.Enabled = False
cmdanterior.Enabled = True
cmdproximo.Enabled = True
cmdgravar.Enabled = False
cmdsair.Enabled = True
End If
