vb6 con postgres

[mveraa]

hola maestros me conecto a un server linux que usa postgres , me conecto mediando una odbc puebo hacer consultas sin ningun problema pero al momento de intentar de hacer un addnew me dice no se puede porque es de solo lectura
al momento de precionar el boton guardar llama al procedimiento prueba2

pongo dentro de un modulo

'consultas a la bd



Global CON As ADODB.Connection
Global comd As ADODB.Command
Global rt As ADODB.Recordset
Global objComm As New ADODB.Command

Public Sub conecta()
On Error GoTo conexion



Set CON = New ADODB.Connection
Set comd = New ADODB.Command
Set rt = New ADODB.Recordset
CON.CommandTimeout = 40
CON.CursorLocation = 1


CON.Open ("dsn=godis_")



'CON.Open
Set comd.ActiveConnection = CON
comd.CommandType = 1
'comd.CommandText = "select * from estados where estado_paso='1'and dueno_paso='20' "

'rt.Open comd, , 1, 1

'MsgBox "CENTRO DE COSTO:" + rt.Fields("codigo_licitacion") + " PASO:" + Str(rt.Fields("paso")) '+ " HORA:" + Val(rt.Fields("hora")) ' + " FECHA:" + val(rt.Fields("fecha"))


conexion:
'Resume Next


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


End
End If







End Sub



Public Sub prueba2()



rt.Open "lici", CON, adOpenDynamic, adLockOptimistic, adCmdTable




rt.MoveFirst
rt.AddNew
rt!codigo = "1113"

rt.Update


rt.Close


MsgBox "listo"


End Sub



espero me puedan orientar

un saludo.