Un consejo, comenta estas dos lineas
Código vb:
Ver originalDim Comando2 As MySqlCommand = New MySqlCommand(Consulta, oCnn)
Comando2.ExecuteNonQuery()
y ponte el valor de 'Consulta' en un nuevo label para que veas que es y como lo tratas de insertar... ese código que te dió llevalo a management de sql y verifica qué esta mal para corregirlo y se pueda ejecutar en tu página