Visual Basic

Dim con As SqlConnection
Dim dsDept As New DataSet
Dim dsEmployee As New DataSet
Dim daDept As SqlClient.SqlDataAdapter
Dim daEmployee As SqlClient.SqlDataAdapter
Dim sqlDept As String
Dim sqlEmployee As String

con = New System.Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\CivicaDB.mdf;Integrated Security=True;User Instance=True")

con.Open()
sqlDept = "SELECT * FROM Department"
daDept = New SqlClient.SqlDataAdapter(sqlDept, con)
daDept.Fill(dsDept, "Department")
con.Close()

Dim currentRow As Integer
currentRow = 0

Dim cmd As New SqlCommand

For Each DataRow In dsDept.Tables("Department").Rows
       If dsDept.Tables("Department").Rows(currentRow).Item("Name") = DropDownList1.SelectedValue Then

                Dim correctDept As Integer
                correctDept = dsDept.Tables("Department").Rows(currentRow).Item("Number")

                con.Open()
                sqlEmployee = "SELECT * FROM Employee WHERE Department =" & Convert.ToString(correctDept) & ";"
                daEmployee = New SqlClient.SqlDataAdapter(sqlEmployee, con)
                daEmployee.Fill(dsEmployee, "Employee")
                GridView1.DataSource = dsEmployee
                GridView1.DataBind()
                con.Close()

            End If

            currentRow = currentRow + 1
Next