Cannot seem to populate second dropdownlist !!!!

[Patrik]

Hi,

I don't know why, it seems simple enough, but this code below doesn't
populate my second dropdownlist. First one populates just fine. Here's
the rest of the code. I'm using Web Matrix

Thank you for the advice.


Function PossibleQuestionnaire(ByVal num_Département As String) As
System.Data.DataSet
Dim connectionString As String = "server=...
Dim dbConnection As ...
Dim queryString As String = "SELECT ... .. WHERE Departement =
@Num_Département)"
Dim dbCommand As System.Data.IDbCommand = New
System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dbParam_num_Département As ...
dbParam_num_Département.ParameterName = "@Num_Département"
dbParam_num_Département.Value = num_Département
dbParam_num_Département.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_num_Département)
Dim dataAdapter As System.Data..
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)

Return dataSet
End Function


Sub DropDownList1_SelectedIndexChanged(sender As Object, e As
EventArgs)
Dim number as Integer
number = DropDownList1.SelectedItem.Value
DropDownList2.DataTextField = "Num_Questionnaire"
DropDownList2.DataSource =
PossibleQuestionnaire(DropDownList1.Items(DropDownList1.SelectedIndex).text)
DropDownList2.DataBind()
End Sub