con = win32com.client.Dispatch("ADODB.Connection")
connection_string = (
    r"Provider=Microsoft.ACE.OLEDB.12.0;"
    r"Data Source=C:\Users\Public\zzz.accdb;"
    r"Jet OLEDB:System Database=C:\Users\Gord\AppData\Roaming\Microsoft\Access\system.mdw;"
)
con.Open(connection_string)
cmd = win32com.client.Dispatch("ADODB.Command")
cmd.ActiveConnection = con
cmd.CommandText = "GRANT SELECT ON MSysQueries TO Admin"
cmd.Execute()