ALTER TABLE importbanka enable ROW LEVEL SECURITY;

CREATE POLICY slct ON importbanka   USING  (contragentid =1 and current_user='readonly');

REVOKE ALL privileges ON importbanka FROM readonly;
REVOKE ALL PRIVILEGES ON ALL TABLES IN SCHEMA public FROM readonly;
REVOKE ALL PRIVILEGES ON ALL SEQUENCES IN SCHEMA public FROM readonly;
REVOKE ALL PRIVILEGES ON ALL FUNCTIONS IN SCHEMA public FROM readonly;
REVOKE ALL PRIVILEGES ON SCHEMA public FROM readonly;

CREATE user readonly WITH PASSWORD 'xxx';

GRANT CONNECT ON DATABASE postgres to readonly; 
grant select on pg_class, pg_type to readonly;
GRANT execute ON function nameeq TO readonly;
ALTER TABLE public.importbanka enable ROW LEVEL SECURITY;
create POLICY slct ON public.importbanka for select
  USING (contragentid = 1);

Sub sbConn()
On Error GoTo lbl
Dim conn As ADODB.Connection
Dim RS As ADODB.Recordset
Dim rst As ADODB.Recordset
Dim strSql As String, serverConn As String
Dim i As Integer
  
  'строка подключения
  sConnString = "Driver={PostgreSQL Unicode}; Server=" & hostName _
    & "; PORT=" & portNo _
    & "; Database=" & baseName _
    & "; UID=" & userName _
    & "; PWD=" & psw
  
  Set conn = New ADODB.Connection
    
  conn.Open sConnString
  
  'если нет соединения, ... к метке Lbl
  If conn.State = 0 Then GoTo lbl
    
  Call PrisoedenitTablitsu(RS(0))

  lbl:
  If Err.Number <> 0 Then Debug.Print Err.Number, Err.Description
  
  If Not (RS Is Nothing) Then
    If RS.State = 1 Then RS.Close
    Set RS = Nothing
  End If
  
  If CBool(conn.State And adStateOpen) Then conn.Close
  Set conn = Nothing
  
End Sub

Private Sub PrisoedenitTablitsu(rstrTblSrc As String)
  On Error GoTo Err_Handler
  
Dim tdf As TableDef
Dim connOptions As String
Dim myConn As String
Dim myLen As Integer
Dim bNoErr As Boolean
Dim rstrTblDest As String
Dim db As Database
Dim serverConn As String
  
  Set db = CurrentDb
  Set tdf = db.CreateTableDef(rstrTblSrc)
  
  serverConn = "ODBC;DSN=PostgreSQL35W" _
    & ";DATABASE=" & baseName _
    & ";SERVER=" & hostName _
    & ";PORT=" & portNo _
    & ";Uid=" & userName _
    & ";Pwd=" & psw

  tdf.Connect = serverConn
  tdf.SourceTableName = rstrTblSrc
  db.TableDefs.Append tdf
  db.TableDefs.Refresh

  
Err_Handler:
    
  If Err.Number = 0 Then
    Debug.Print "Подключена таб: " & rstrTblSrc
  ElseIf Err.Number = 3010 Then
    DoCmd.Close acTable, rstrTblSrc
    If IsTableExist(rstrTblSrc) = 2 Then DoCmd.DeleteObject acTable, rstrTblSrc
    Debug.Print "отключена таб " & rstrTblSrc
    Call PrisoedenitTablitsu(rstrTblSrc)
  Else
    Debug.Print Err.Number, Err.Description
    'Stop
    'Resume Next
  End If
  Set db = Nothing
  Set tdf = Nothing
    
End Sub

conn.Open под_суперпользователем

conn.Close

conn.Open под_readonly