' ADODB sample : SELECT now(); strConn = "DSN=postgresql-test" Set oConn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") oConn.ConnectionString = strConn oConn.Open rs.Open "SELECT now()", oConn MsgBox(rs.Fields(0)) rs.Close set rs = Nothing oConn.Close set oConn = Nothing