Hola
Como te comento anteriormente, las sentencias INSERT, UPDATE o DELETE yo NO las realizo con el recordset, no si de ese modo funcionan, no lo había visto nunca. Yo lo haría despues del cnPrueba.Open
Código vb:
Ver originalcnPrueba.execute "UPDATE tbl_direccion SET nombre='" & Text1 & "', apellidos='" & Text4 & "',direccion='" & Text5 & "',ciudad='" & Combo1 & "',provincia='" & Combo2 & "',telefono='" & Text2 & "',cp='" & Text6 & "' Where id = " & ID & ""
--Saludos--