เรื่องการดึงค่าจาก db มาแสดงใน combo box ครับ เข้ามาดูให้ทีครับ

conn.Open()
        sql = "select t.*,c.cname from tech t inner join course c on t.cid = c.cid where tid = '" & id & "' group by cid"
        Dim cmd As New MySqlCommand(sql, conn)
        Dim rdTech As MySqlDataReader = cmd.ExecuteReader
        While rdTech.Read
            CBBCourse.Items.Add(rdTech.Item("cname"))
        End While
        rdTech.Close()
        conn.Close()
        conn.Dispose()

<option value='0001'>JAVA</option>
<option value='0002'>PHP</option>