combos en cascada

[fl0rencia]

Hola; buen dia.

Les comento mi problema; quiero hacer combos en cascada; es decir que un combo dependa de otro.

intente hacer unos; pero me marca error en fill.

Les dejo mi codigo; ojala me puedan ayudar.

Código:

Imports System.Data.Odbc
Public Class conexiones

    Public cadenaConexionODBC As String = "DSN=PostgreSQL35W;UID=mgn;PWD=rural;"

    Public conexionBD As New Odbc.OdbcConnection(cadenaConexionODBC)
    Dim comandoSQL As Odbc.OdbcCommand = conexionBD.CreateCommand()
    Public datasetDatosBD As New DataSet
    Public dataAdaptarDatosDB As New Odbc.OdbcDataAdapter


    Sub llenarcombo(ByVal odbc As String, ByRef combo As ComboBox)
        conexionBD.Open()

        combo.DataSource = Nothing
        Dim con As New OdbcConnection
        Dim da As New OdbcDataAdapter(odbc, cadenaConexionODBC)
        Dim ds As New DataSet
        da.Fill(ds)

        combo.DataSource = ds.Tables(0)
        combo.DisplayMember = ds.Tables(0).Columns(0).Caption.ToString
        conexionBD.Close()


    End Sub


End Class