Problema al guardar en BDD en ADO

[Teosanchez]

Si lo que quieres es insertar un registro en la tabla de Log, como creo entender.
En lugar de hacer

Public CadenaInsertar As String = "INSERT INTO log VALUES (@Cuando,@Motivo)"
y luego
ComandoAgregar.Parameters.AddWithValue("@Cuando", Date.Now)
ComandoAgregar.Parameters.AddWithValue("@Motivo", "Error de login")


Creo que sería suficiente con esto

Public CadenaInsertar As String = "INSERT INTO log VALUES ('" & Date.Now.ToString & "'," & "Error de Login)"

Luego ejecutas esa sentencia y listo.

Recomendación:
Utiliza el MS Data Application Block para todas tus operaciones de base de datos y que quitarás millones de problemas.
http://www.elguille.info/colabora/puntonet/hlcont_applicationblocks.htm