Vb.net 2008 expres nullrefennceexepcion

[jesus_lodor]

bueno espero que todavia estes por hay jeje
por que el programa de guarda y muestra los archivo de la base de dato pero a la hora de editarlo me da error hay te va el codigo

Private Sub GuardarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarToolStripMenuItem.Click
conectar()
If accion = "Nuevo" Then
sql = "insert into datos(ID_Refugiado,Cedula,Nombre,Apellido,Edad,Ciu dad,Direccion,Diagnostico,Tratamiento,Observacion, Cedula_Acompañante,Nombre_Acompañante,Apellido_Aco mpañante,Telefono_de_contacto)" & "values('" & txt_id.Text & "','" & Txt_Cedula.Text & "','" & Txt_Nombre.Text & "','" & txt_Apellido.Text & "','" & txt_Edad.Text & "','" & txt_Ciudad.Text & "','" & txt_Direccion.Text & "','" & txt_Diagnostico.Text & "','" & txt_Tratamiento.Text & "','" & txt_Observacion.Text & "','" & txt_Cedula_Acompañante.Text & "','" & txt_Nombre_Acompañante.Text & "','" & txt_Apellido_Acompañante.Text & "','" & txt_Telefono_de_Acompañante.Text & "')"
conexion.Execute(sql)
MsgBox("El Registro se Guardo Correctamente", MsgBoxStyle.Information, " Registro de Refugiado")
End If

If accion = "Editar" Then
sql = "update datos set Cedula='" & Txt_Cedula.Text & "'," & "Nombre='" & Txt_Nombre.Text & "'," & "Apellido='" & txt_Apellido.Text & "'," & "Edad='" & txt_Edad.Text & "'," & "Ciudad='" & txt_Ciudad.Text & "'," & "Direccion='" & txt_Direccion.Text & "'," & "Diagnostico='" & txt_Diagnostico.Text & "'," & "Tratamiento='" & txt_Tratamiento.Text & "'," & "Observacion='" & txt_Observacion.Text & "'," & "Cedula_Acompañante='" & txt_Cedula_Acompañante.Text & "'," & "Nombre_Acompañante='" & txt_Nombre_Acompañante.Text & "'," & "Apellido_Acompañante='" & txt_Apellido_Acompañante.Text & "'," & "Telefono_de_contacto='" & txt_Telefono_de_Acompañante.Text & "'" & " where ID_Refugiado='" & txt_id.Text & "'"
Debug.Print(sql)
conexion.Execute(sql)----> dice esto "No coinciden los tipos de datos en la expresión de criterios."
MsgBox("La Edicion del Registro se Realizo con Extito!", MsgBoxStyle.Information, "Edicion del Registro")
End If
conexion.Close()
End Sub