Mysql in vb .net

[Syssin]

Ik ben even geleden begonnen aan sql in vb .net. Om wat meer to the point te gaan (webbased database access) ben ik overgeschakeld op mysql. Ik heb heel wat zitten zoeken op het net om hier wat info rond te vinden maar zonder veel resultaat. Ik kan me alleen nog maar inloggen...

Dim conn As Odbc.OdbcConnection
        conn = New Odbc.OdbcConnection
        Dim server
        server = Form1.TextBox3.Text

        Dim db
        db = Form1.TextBox4.Text
        Dim usr
        usr = Form1.TextBox1.Text
        Dim pw
        pw = Form1.TextBox2.Text

        conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
              & "SERVER=" + server + ";" _
              & "DATABASE=" + db + ";" _
              & "UID=" + usr + ";" _
              & "PWD=" + pw + ";" _
              & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

        conn.Open()

Nu probeer ik de tabel in een listview te laden met de volgende code, maar ik krijg de tabelSTRUCTUUR. Ik weet dat het aan 'getschematable' ligt maar ik vind geen enkele andere mogelijkheid. Weet iemand de oplossing?

Dim table As String = Form1.TextBox5.Text

        Dim selectquery As String = "select * from " + table + ""

        Dim cmd As Odbc.OdbcCommand = New Odbc.OdbcCommand(selectquery, conn)

        Dim reader As Odbc.OdbcDataReader = cmd.ExecuteReader(CommandBehavior.SchemaOnly)

        Dim schematable As DataTable = reader.GetSchemaTable



        conn.Close()
        Dim col As DataColumn
        Listview1.View = View.Details


        For Each col In schematable.Columns
            Listview1.Columns.Add(col.ColumnName, 100, HorizontalAlignment.Left)

        Next

        Dim row As DataRow
        Dim colcount As Integer = schematable.Columns.Count
        For Each row In schematable.Rows
            Dim orderdetails(colcount) As String
            Dim colidx As Integer
            For colidx = 0 To colcount - 1
                orderdetails(colidx) = Convert.ToString(row(colidx))
            Next
            Dim newitem As ListViewItem = New ListViewItem(orderdetails)
            Listview1.Items.Add(newitem)

        Next

Ik heb nog enkele problemen hierbij, maar ik denk dat we de problemen beter 1 voor 1 aanpakken..

Een gelijkaardig topic staat ook op tones.be, maar daar konden ze mij blijkbaar niet verder helpen. Ik hoop dat ik hier meer geluk heb.
Het topic op tones

Alvast bedankt!