¿Cómo puedo consultar PostreSQL en VBA? He intentado lo siguiente que encontré en línea pero no parece funcionar.

 Sub query() 'Create Connection Set conn = CreateObject("ADODB.Connection") strCnx = "Driver={PostgreSQL UNICODE};Server=localhost;Database=databasename;uid=username;pwd=password123;" conn.Open strCnx 'Query the Database Set rs = CreateObject("ADODB.recordset") rs.Open "select * from dm.acct_dim limit 10", conn Record = rs.GetRows() rs.Close conn.Close 'Write results to file Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\dbData.txt", 8, True) For Each Item In Record objFile.WriteLine (Item) Next objFile.Close End Sub

Cuando intento esto, aparece un error que dice "no se pudo conectar con el servidor; no se pudo realizar ninguna conexión porque la máquina de destino la rechazó activamente".

Cuando me conecto con pgadmin, uso host, puerto, base de datos, nombre de usuario y contraseña. Así que supongo que necesito esas mismas cosas en la cadena de conexión, pero no estoy exactamente seguro de cómo debería configurarse. Soy un novato aquí. Gracias por cualquier ayuda.