Sie benötigen mehr Codes
oAccess = CreateObject („Access.Application“) einstellen
oAccess.OpenCurrentDatabase (strDatabasePath)
oAccess.Visible=true
oAccess.UserControl=true
Wenn RS („Rolle“) = „Verwalter“ dann
oAccess.DoCmd.SelectObject acTable, zutreffend
Sonst
oAccess.DoCmd.SelectObject acTable, zutreffend
oAccess.DoCmd.RunCommand acCmdWindowHide
Beenden wenn
das Resultat einfach zurück bekannt geben.