'создаем новое подключение к БД
Set ADO_Connect = New ADODB.Connection
With ADO_Connect
.ConnectionString = "Driver={PostgreSQL UNICODE(x64)};Server=имя сервера;Port=5432;Database=имя базы;Uid=postgres;Pwd=пароль
.Mode = adModeReadWrite
.Open
End With

'создаем новое подключение к БД

Set ADO_Connect = New ADODB.Connection
With ADO_Connect
    .ConnectionString = "Driver={PostgreSQL UNICODE(x64)};Server=*;Port=5432;Database=*;Uid=*;Pwd=*"
    .Mode = adModeReadWrite
    .Open
End With
'----------------------------------------------------------------------------------

'создаем новый рекордсет и заполняем его данными из выбранной таблицы
Set ADO_Recordset = New ADODB.Recordset
With ADO_Recordset
    Set .ActiveConnection = ADO_Connect
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Source = "SELECT \"ID\" FROM \"METRO_LINE_IDS\""
    .Open
End With