NO funciona ADDNEW en postgresql - ADO - VB6

Hola de nuevo, como verán estoy haciendo pruebas,
antes de trabajar en serio con postgresql, el
problema es como dije arriba que no puedo añadir
o borrar datos de una tabla, el códgi que uso es el siguiente :

AQUI HAGO LA CONEXIÓN Y ABRO LA TABLA

Set datos = New Adodb.Connection
cadena =
"Provider=PostgreSQL.1;Password=xxxxx;User
ID=postgres;Data Source=localhost;Location=prueba"
datos.ConnectionString = cadena
datos.Mode = adModeReadWrite
datos.Open
datos.CommandTimeout = 20
Set tabla = New Adodb.RecordSet
tabla.CursorType = adOpenDynamic
tabla.CursorLocation = adUseClient
tabla.Open "select * from nombres", datos, adOpenDynamic, adLockOptimistic

AQUI HAGO L AOPERACIÓN DE AÑADIR Y/O BORRAR

On Error GoTo ErrorHandler
datos.BeginTrans

If tabla.ActiveConnection = False Then
Print "conexión cerrada " ' esto lo
hago para saber si la conexión está o no abierta
End If
valor = tabla.Fields("nombre") ' aquí leo
este valor solo para volver a comprobar si la conexión esta abierta o no

tabla.AddNew

'tabla.Fields("nombre") = "manuel"

AL LLEGAR A ESTE DATO DE ASIGNACIÓN DE DATOS ME DA ERROR :

La operación en varios pasos generó errores, compruebe los valores de estado

tabla.Fields("tlfno") = 12457
tabla.UpdateBatch
datos.CommitTrans
tabla.Close
Exit Sub
ErrorHandler:
DisplayError (Err.Description)

Como verán he puesto un par de "cosillas" para
ver el estado de la conexión y demás para saber si esta abierta.
Alguna sugerencia?.

Gracias por adelantado

suso
Islas Canarias