Hola!!
Puedes usarlo asi:
Código vb:
Ver originalDim Up as integer
strUpdate="UPDATE [TABLA] SET [CAMPO1]=" & CAMPO1 & " , [CAMPO2]=" & CAMPO2 & " WHERE CODIGO=" & CODIGO
Conexion.execute strUpdate, Up
if Up=1 then msgbox "Registro actualizado!!", vbinformation