вам нужны больше Кодих
Установите oAccess = CreateObject («Access.Application»)
oAccess.OpenCurrentDatabase (strDatabasePath)
oAccess.Visible=true
oAccess.UserControl=true
Если RS («роль») = «администратор» после этого
oAccess.DoCmd.SelectObject acTable, поистине
Еще
oAccess.DoCmd.SelectObject acTable, поистине
acCmdWindowHide oAccess.DoCmd.RunCommand
Закончитесь если
как раз вывесьте назад результат.