Bueno como te explique el Codigo te envia error porq no te has Conectado a la Base de Datos
Código:
Dim consulta as String
try
conectar.ConexionMySQL()
consulta = "update datos set nombre='" & "JESUS MANUEL" & "'"
conectar.Ejecutar(consulta)
catch ex as Exception
msgbox(ex.message,48)
finally
conectar.Con.Close()
end try