problema con upgrade en postgres

[mveraa]

aqui es el punto donde falla.
alguien sabe de alguna manera de decirle a la conexion que la codificacion es uft8?



Public Sub conecta()
On Error GoTo conexion



Set CON = New ADODB.Connection
Set rt = New ADODB.Recordset


CON.CommandTimeout = 40
CON.CursorLocation = 1



CON.Open ("dsn=licitaciones")

Set comd.ActiveConnection = CON
comd.CommandType = 1


conexion:


If (Err.Number = Val("-2147467259")) Then
MsgBox "NO HAY CONEXION CON EL SERVIDOR CONTACTE AL ADMINISTRADOR ANEXO:713-6464,CERRANDO EL PROGRAMA", vbCritical, "ERROR"
End
End If