Private Sub Requete(SQL As String, NomChamp1 As String, Nomchamp2 As String)
Dim CONN As New ADODB.Connection
Dim rs As New ADODB.Recordset
CONN.ConnectionString = "DRIVER={PostgreSQL Unicode};Port=5432;SERVER=XXX;DATABASE=XXX;Uid=XXX;Pwd=xxx"
CONN.Open
Set rs = CONN.Execute(SQL)
While Not (rs.EOF)
rs.MoveNext
Wend
rs.Close
CONN.Close
End Sub