Hola!, este es el codigo:
 
Declaracion:  
Código:
  Public Conexion As New OleDbConnection
    Public CadenaConexion As String = "Provider = Microsoft.Jet.OLEDB.4.0; Password =; Data Source = Vives.mdb"
    Public CadenaInsertar As String = "INSERT INTO log VALUES (@Cuando,@Motivo)"
  Asignacion:  
Código:
 Try
                        Conexion = New OleDbConnection(CadenaConexion)
                        Dim ComandoAgregar As New OleDbCommand(CadenaInsertar, Conexion)
                        ComandoAgregar.Parameters.AddWithValue("@Cuando", Date.Now)
                        ComandoAgregar.Parameters.AddWithValue("@Motivo", "Error de login")
                        Conexion.Open()
                        ComandoAgregar.ExecuteNonQuery()
                        ComandoAgregar.Cancel()
                        Conexion.Close()
                    Catch ex As Exception
                        'MsgBox("La fila no ha podido ser insertada en la tabla. ")
                        MsgBox(ex.Message)
                    End Try
  Y me pone que no son las mismas las de entrada y salida... alguien ve algún fallo? 
Gracias