Нужно чтобы при открытии базы, для пользователей, входящих в определенную группу, не высвечивались некоторые пункты меню. Как это можно сделать или хотя бы как опознать программно, пользователь какой группы зашел в программу?

А что за база?

База данных в MS Access 2002

Function ИмяКомпьютера() As String

Dim ИмяКомпьютера_B As String * 255
GetComputerName ИмяКомпьютера_B, Len(ИмяКомпьютера_B)
'последний символ - всегда "конец строки" Chr(0), его находит функция
ИмяКомпьютера = Left(ИмяКомпьютера_B, InStr(ИмяКомпьютера_B, Chr(0)) - 1)
'MsgBox InStr(ИмяКомпьютера_B, Chr(0))
'функция возвращает только имя компьютера
'MsgBox ИмяКомпьютера

End Function

Function ИмяПользователя() As String

Dim ИмяПользователя_B As String * 25

'ret = GetUserName(ИмяПользователя_B, 25)
GetUserName ИмяПользователя_B, 25
'последний символ - всегда "конец строки" Chr(0), его находит функция
ИмяПользователя = Left(ИмяПользователя_B, InStr(ИмяПользователя_B, Chr(0)) - 1)
'MsgBox ИмяПользователя

End Function

А скрывать какнить так::

Private Sub Form_Load()

Dim Пользователь As String

Пользователь = ИмяПользователя()

With Forms("фрм_ОсновнаяСклад")
Select Case Пользователь

Case "Складготовой1"
.кн_ПредваритСклад.Enabled = False
.кн_ДопОбработка.Enabled = False
.кн_СкладАнгро.Enabled = False
.кн_СкладБракСырья.Enabled = False
.кн_Производство.Enabled = False
.кн_Сертификация.Enabled = True
.кн_СкладГотовойПродукций.Enabled = True
.кн_СкладБракаГотовойПродукции.Enabled = True

Case "СкладПредварительный"
.кн_ПредваритСклад.Enabled = True
....
....
..
...
..