Hola, mira tengo un problema estoy cursando la carrera de analista en sistemas y me pidieron que realice un programa en el que se pueda cargar y modificar los datos de los registros cargados a una base de datos en access , la carga de datos esta perfecta pero a la hora de grabar me salta un error....En mi formulario tengo el codigo de la persona el codigo del contacto el combo con el tipo de contacto y el valor del contacto.
existen 3 tablas: Personas , Contactos(id_contactos,id_tipocontacto,id_persona,valor ,activo) Tipo_contactos (id_tipocontacto,descripcion).ahora bien lo que necesito es que grabe cuando realizo la modificacion de un registro que luego se cargara a una grilla para que muestre algunos datos.
ESTA SERIA LA PARTE DEL GRABADO DE UNA MODIFICACION

Else
persona = Me.txtcodigo
cadena = "select * from contactos where id_persona = persona and activo='ACTIVO' and id_contactos =" & txtcodigo2.Text & ";"
If Rs.State = 1 Then Rs.Close
Rs.Open cadena, Cnn, adOpenDynamic, adLockPessimistic
Rs!id_contacto= txtcodigo2.text
Rs!id_tipocontactos = tipo
Rs!valor = txtvalor.Text
Rs!id_persona = txtcodigo.Text
Rs!activo = "ACTIVO"
Rs.Update
grilla.Rows = 1
cargar_grilla Me, grilla, Rs
End If

Agradeceria tu aporte a mi problema ......

Configuración: Windows XP Internet Explorer 8.0