How to populate a second combobox when selecting item from the first combobox

[dheerloveguru]

Hi, Could anyone help me out!!!

I'm using VB 2010 and Access Database file. My problem is I'm unable to populate the second combobox when selection of item is made from the first combobox.

Here is my code:

Imports System.Data
Imports System.Data.OleDb
 
Public Class Form1
 
    Dim con As New OleDbConnection
    Dim dbProvider, dbSource As String
    Dim ds1, ds2, ds3 As New DataSet
    Dim da1, da2, da3 As OleDbDataAdapter
    Dim sql1, sql2, sql3, selectcombo As String
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dbProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
        dbSource = "Data Source=C:\Users\Genius\Desktop\VBCode\Usertable.mdb"
        con.ConnectionString = dbProvider & dbSource
        con.Open()
 
        popcbo3()
        popcbo2()
 
    End Sub
 
    Private Sub popcbo3()
        sql3 = "SELECT DISTINCT username FROM Usertbl ORDER BY Username"
        da3 = New OleDb.OleDbDataAdapter(sql3, con)
        da3.Fill(ds3, "Username")
        cboUser.DataSource = ds3.Tables(0)
        cboUser.DisplayMember = "Username"
        cboUser.ValueMember = "username"
    End Sub
    Private Sub popcbo2()
        sql2 = "Select Distinct type From Usertbl where username= '" & cboUser.SelectedValue.ToString() & "'"
        da2 = New OleDb.OleDbDataAdapter(sql2, con)
        da2.Fill(ds2, "type")
        cboType.DataSource = ds2.Tables(0)
        cboType.DisplayMember = "type"
        cboType.ValueMember = "type"
    End Sub
End Class
 

>>> What code should be entered in the 'CboUser selected Item Index'??? If I put 'pop3 ()' no changes is made when I select from cboUser combobox in the contrary it duplicates the CboType combobox values...

Pls any suggestion from anyone... Thanks in advance

[Rabbit]

You should use one of the combo box events to call popcbo2, I don't know why you would call popcbo3 since popcbo2 is the one that has any sort of filtering in its SQL.