you need more codes
Set oAccess = CreateObject("Access.Application")
oAccess.OpenCurrentDatabase (strDatabasePath)
oAccess.Visible=true
oAccess.UserControl=true
If RS("Role") = "Administrator" Then
oAccess.DoCmd.SelectObject acTable, , True
Else
oAccess.DoCmd.SelectObject acTable, , True
oAccess.DoCmd.RunCommand acCmdWindowHide
End If
just post back the result..