I had the problem that I couldn't read the ACCESS system tables. With an ADODB.Connection and the assignment of admin permissions, this was possible:
Dim RSNew As New ADODB.Recordset
SQL = "GRANT SELECT ON MSysQueries TO Admin;"
CMDNew.CommandText = SQL
RSNew = CMDNew.Execute()
In order to avoid the error message mentioned above, the reference to "System.mdw" was necessary in the connection string:
ConnString = "Provider=Microsoft.ACE.OLEDB.16.0;Data Source=" & DBPfad & "; Jet OLEDB:System Database = C:\Users\" & RightBack(My.User.Name, "DPI\") & "\AppData\Roaming\Microsoft\Access\System.mdw;"