perdonn la segunda cita es este codigo:
Cita: Private Sub rbl_espec_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbl_espec.SelectedIndexChanged
If rbl_espec.SelectedItem.Value = "DA3" Then
SqlDataAdapter2.Fill(DS_asig_desa1, "asignaturas")
ddList1.DataSource = DS_asig_desa1.Tables("asignaturas").DefaultView
ddList1.DataBind()
ElseIf rbl_espec.SelectedItem.Value = "AS3" Then
SqlDataAdapter3.Fill(DS_asig_admin1, "asignaturas")
ddList1.DataSource = DS_asig_admin1.Tables("asignaturas").DefaultView
ddList1.DataBind()
End If
End Sub