Fwd: problem with using VBA connection string to postgresql

Sub copyingSchemas()
Dim dbCon As Object
Dim rst As Object
Dim username, pass, strConnect As String
username = Environ("username")
pass = "PasswordAccess"
Set dbCon = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
'''You can use a pass-through query to list the table names from your SQL Server database. Open a recordset based on that query. Then loop through the recordset rows and link each table.
username = "postgres"
pass = "1234"
strConnect = "ODBC;DRIVER={PostgreSQL Unicode};" & _
"DATABASE=AccessLog;" & _
"SERVER=localhost;" & _
"PORT=5432;" & _
"UID=" & username & ";" & _
"PWD=" & pass & ";" & _
"Trusted_Connection=Yes;"
dbCon.ConnectionString = strConnect
dbCon.Open
Dim strSQl As String
strSQl = "SELECT * FROM t_cpuinfo();"
rst.Open strSQl
dbCon.Close

End Sub