Problema al conectar con MySQL

[KazerPowa]

Hola,

Siguiendo las instrucciones de varias páginas dedicadas a Visual Basic, he conectado mi programa con MySQL así (o al menos lo he intentado):

Código vb:

Dim strSQL As String
        conexionBD = New OdbcConnection("dsn=" & _
                    "conexion_vb" & ";uid=" & _
                    "usuario" & ";pwd=" & _
                    ****** & ";")
        MsgBox("1")
        strSQL = "SELECT campos FROM tabla ORDER BY campo1"
        Dim command As New OdbcCommand(strSQL, conexionBD)
        Dim reader As OdbcDataReader = command.ExecuteReader()
        While reader.Read()
            ListBox3.Items.Add(reader.GetString(0))
            MsgBox(reader.GetString(0))
            MsgBox(reader.GetString(1))
        End While
        reader.Close()
    End Sub
 

(evidentemente donde pone "campos", "tabla", "usuario" y "*****" van mis datos en la versión original)

Qué puede estar fallando? No me agrega nada al ListBox :S