otro problema:Tengo problemas para ingresar datos en una Base de Datos access

RsetDestino.AddNew
RsetDestino!cod_des = 0
RsetDestino!Destino = txtnuevodestino.Text
RsetDestino.Update
RsetDestino.Close

Tengo que escribir que cod_des=0 para que muestre en la tabla un número porque no lo inserta por defecto.

además que de esa tabla (Destino) se toman esos datos para otro Ingreso, me arroja error.


yo creo que el problema es este código...

For i = 0 To lstdestino.ListCount - 1
If lstdestino.Selected(i) = True Then

RsetDestinoPIngreso.AddNew
RsetDestinoPIngreso!cod_ingreso = txtNroIngreso.Text
RsetDestinoPIngreso!cod_des = lstdestino.ItemData(i)
RsetDestinoPIngreso.Update

End If
Next i
En ese código en el Formulario Ingreso se incrementa el cod_des
en la tabla Destino, pero con el código anterior no lo hace, creo que es porque en este busca el listbox que esta en el ForIngreso pero en el otro Form es solo para Ingresar otro Destino.
</TR>