Buenas! Bueno estoy intentando conectar con una base de datos y ejecutar un INSERT INTO a modo de testeo, pero me saca una excepción diciéndome que no existe conexión establecida.

Este es el code:

Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class ConexBD
    Public Sub conectar(ByVal email As String, ByVal code As String) 'Metodo que establece la conexion con la base de datos
        Try
            Dim cmd As New SqlCommand
            Dim con As New SqlConnection("Server=mysql.000webhost.com	; User Id=a2906687; Password=; Database=a2907")
            cmd.Connection = con
            cmd.CommandText = "INSERT INTO test (email,code) VALUES ('test','testcode')"
            cmd.ExecuteNonQuery()
 
        Catch ex As Exception
            MsgBox(ex.Message.ToString(), MsgBoxStyle.Critical)
        End Try
    End Sub
End Class

A ver si me podeis hechar una mano!! Gracias!!!

Son datos falsos, no voy a publicar esos datos reales  

No estoy abriendo con esta linea la conexion?



Ya he buscado tutoriales y leido la MSDN, y como no se soluciona lo publico aquí. Por favor, prefiero las criticas constructivas.


EDIT: Puede ser que necesite las librerias de conexion de MySQL?

http://dev.mysql.com/downloads/connector/net

Si, ese era el problema. las librerias de MySQL! Gracias!!!