Combobox dependientes con stored Procedure

[uagrm]

Esto es C# pero puedes adecuarlo a VB.

Código ASP:

protected void Page_Load(object sender, EventArgs e)
        {
            if (!IsPostBack)
            {
                CargarComboPaises();
 
                ddlCiudades.Items.Insert(0, new ListItem("Seleccione..", "0"));
            }
        }
        
private void CargarComboPaises()
        {
            DataTable dt = new DataTable();
            Paises p = new Paises();
 
            dt = p.Paises_Listar();
            ddlPaises.DataSource = dt;
            ddlPaises.DataValueField = "Id";
            ddlPaises.DataTextField = "Paises";
            ddlPaises.DataBind();
 
            ddlPaises.Items.Insert(0, new ListItem("Seleccione..", "0"));
        }
 
        protected void ddlPaises_OnSelectedIndexChanged(object sender, EventArgs e)
        {
            if (ddlPaises.SelectedValue != "0")
            {
                DataTable dt = new DataTable();
                Ciudades c = new Ciudades();
 
                dt = cd.Ciudades_Listar_PorPaises(Tools.ToInteger(ddlPaises.SelectedValue));
 
                ddlCiudades.DataSource = dt;
                ddlCiudades.DataValueField = "Id";
                ddlCiudades.DataTextField = "Ciudad";
                ddlCiudades.DataBind();
            }
            else
            {
                ddlCiudades.Items.Clear();
                ddlCiudades.Items.Insert(0, new ListItem("Seleccione..", ""));
            }
        }
 

Saludos,