Function Connect() As Boolean
Const str_sql = "SELECT NOW() AS SERVER_TIME"

'Dim str_connect As String
Dim res As Boolean
Dim tmp_q As QueryDef
Dim tmp_r As RecordSet
Dim tmp_db As DAO.Database

On Error GoTo i_error
res = False


If Not WMIPing(db.host) Then
    log ("Postgres.Connect ERROR " & db.host & " ping error")
    Connect = res
    Exit Function
End If

str_connect = "ODBC;DRIVER={PostgreSQL Unicode};DATABASE=" & db.name & ";"
str_connect = str_connect & "SERVER=" & db.host & ";"
str_connect = str_connect & "UID=" & db.user & ";"
str_connect = str_connect & "PWD=" & db.pass & ";"
str_connect = str_connect & "PORT=" & db.port & ";"
str_connect = str_connect & "CA=d;A6=;A7=100;A8=4096;B0=255;B1=8190;BI=0;C2=dd_;;CX=1c20502bb;A1=7.4;"

Set tmp_db = CurrentDb
Set tmp_q = tmp_db.CreateQueryDef("")

With tmp_q
    .Connect = str_connect
    .sql = str_sql
End With

Set tmp_r = tmp_q.OpenRecordset
last_answer = tmp_r.Fields![SERVER_TIME]

res = True
ClearErr

i_exit:
    
    tmp_q.Close
    Set tmp_q = Nothing
    Set tmp_db = Nothing
    
    Connect = res
    
    Exit Function
i_error:
    
    last_err_num = Err.Number
    last_err_descr = Err.Description
        
    Resume i_exit
    
End Function