avete bisogno di più codici
Regolare i oAccess = CreateObject (“Access.Application„)
oAccess.OpenCurrentDatabase (strDatabasePath)
oAccess.Visible=true
oAccess.UserControl=true
Se RS (“ruolo„) = “coordinatore„ allora
oAccess.DoCmd.SelectObject acTable, allineare
Altrimenti
oAccess.DoCmd.SelectObject acTable, allineare
acCmdWindowHide di oAccess.DoCmd.RunCommand
Concluder se
inviare appena indietro il risultato.