Sub ЗапросПостгрес()
Dim Query As QueryTable, connstring As String
connstring = "ODBC; DSN=PostgreSQL35W; UID=phppgadmin; PWD=123456; Database=equeue; Port=5432"
strQuery = "SELECT rel_request_event.request_id, request_event_type.id, request_event_type.name, rel_request_event.event_date, rel_request_event.event_time, rel_request_event.operator_id, service.name FROM public.rel_request_event rel_request_event, public.request_event_type request_event_type, public.service service WHERE (rel_request_event.operator_id=5) AND (rel_request_event.event_date>{d '2013-07-01'}) AND (service.id=rel_request_event.service_id) AND (request_event_type.id=rel_request_event.event_type_id) OR (rel_request_event.operator_id=6) AND (rel_request_event.event_date>{d '2013-07-01'}) AND (service.id=rel_request_event.service_id) AND (request_event_type.id=rel_request_event.event_type_id) ORDER BY rel_request_event.request_id, rel_request_event.event_time "
With ActiveSheet.QueryTables.Add(Connection:=connstring, _
Destination:=Range("A1"), Sql:=strQuery)
.Refresh
End With

End Sub

void main()
{
     retutn;
}