Pues e puesto ese codigo k me has dado, y me dice que la opcion no esta permitida si el objeto esta abierto, y me señala el open.
O sea que a lo mejor lo que falla es el update en el
Where id = " & ID & "
Yo el ID lo he puesto como una variable, eso es lo que puede fallar pero entonces que tendria que poner en el where id ?
Código vb:
Ver originalDim ID As Integer
cnPrueba.Execute "UPDATE tbl_direccion SET nombre='" & Text1 & "', apellidos='" & Text4 & "',direccion='" & Text5 & "',ciudad='" & Combo1 & "',provincia='" & Combo2 & "',telefono='" & Text2 & "',cp='" & Text6 & "' Where id = " & ID & ""
Saludos
edito: Tambien hay una cosa que se me olvido decir aunque no se si es de mucha importancia, es que el campo id no lo tengo en el formulario solo lo tengo en el acces(tipo autonumerico).