How to fill the second combobox on depending on the selectedvalue of the first

Hi everybody,

I'm developping an application with visual studio 2008 and i'm trying to find the exact code to fill the second combobox on depending on the selected value of the first combobox from my mysql database with two tables activity and groupe.
This is my code:

'fill the combobox1 with table activity
   Sub fillCbbActivitychoice()
       strsql = "select * from activity
       objcmd = New MySql.Data.MySqlClient.MySqlCommand(strsql, objconn)
       objdr = objcmd.ExecuteReader
       While (objdr.Read())
           With ComboBox1.Items.Add(objdr("Activity_Name"))
           End With
       End While
       objcmd.Dispose()
       objdr.Close()
   End Sub


'fill the combobox2 with table groupe
    Sub fillCbbGpe()
        strsql = "select * from groupe where Activity_Name=' " & ComboBox1.Text & " '"
        objcmd = New MySql.Data.MySqlClient.MySqlCommand(strsql, objconn)
        objdr = objcmd.ExecuteReader
        While (objdr.Read())
            With ComboBox2.Items.Add(objdr("Libelle_Gpe"))
            End With
        End While
        objcmd.Dispose()
        objdr.Close()
    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fillCbbActivitychoice()
    End Sub


    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        
        strsql = "select * from groupe where Activity_Name=' " & ComboBox1.Text & " '"
        objcmd = New MySql.Data.MySqlClient.MySqlCommand(strsql, objconn)
        'With objcmd
        '.Parameters.AddWithValue("@field3", ComboBox1.Text)
        'End With
        objdr = objcmd.ExecuteReader
        If (objdr.Read()) = True Then
            ComboBox2.Items.Add(objdr("Gpe_Name"))
        End If
        objcmd.Dispose()
        objdr.Close()
    End Sub

Tags: Visual Basic