usted necesita más códigos
Fijar los oAccess = CreateObject (“Access.Application”)
oAccess.OpenCurrentDatabase (strDatabasePath)
oAccess.Visible=true
oAccess.UserControl=true
Si RS (“papel”) = “administrador” entonces
oAccess.DoCmd.SelectObject acTable, verdad
oAccess.DoCmd.SelectObject acTable, verdad
acCmdWindowHide de oAccess.DoCmd.RunCommand
Terminar si
apenas fijar detrás el resultado.