Private Sub Page_Load(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles MyBase.Load
        MyBase.HeaderMessage = "Assign Places"

        LoadDataSet()
        InitPlaces()
        InitForm()
    End Sub

    Private ds As DataSet

    Private Sub LoadDataSet()
        Dim con As SqlConnection
        Dim sql As String
        Dim adExisting As SqlDataAdapter
        Dim adPlaces As SqlDataAdapter
        Dim adPlaceTypes As SqlDataAdapter

        con = New SqlConnection( _
                 "Server=KEVINS\VSdotNET;user id=sa;Password=sa;Initial Catalog=Friends")

        ' Select the place's timelapse records, descriptions and type...
        sql = "SELECT TimeLapse.*, Place.Name AS Place, "
        sql &= "PlaceType.Name AS Type FROM TimeLapse, Place, PlaceType "
        sql &= "WHERE TimeLapse.PlaceID = Place.PlaceID "
        sql &= "AND Place.TypeID = PlaceType.TypeID "
        sql &= "AND TimeLapse.UserID = '" & Context.User.Identity.Name & "'"

        ' Initialize the adapters...
        adExisting = New SqlDataAdapter(sql, con)
        adPlaces = New SqlDataAdapter( _
             "SELECT * FROM Place ORDER BY TypeID", con)
        adPlaceTypes = New SqlDataAdapter("SELECT * FROM PlaceType", con)

        con.Open()
        ds = New DataSet()

        Try
            ' Proceed to fill the dataset...
            adExisting.Fill(ds, "Existing")
            adPlaces.Fill(ds, "Places")
            adPlaceTypes.Fill(ds, "Types")
        Catch
            ' Just pass the exception up...
            Throw
        Finally
            con.Close()
        End Try
    End Sub

If ds.Tables("Existing").Rows.Count > 0 Then
            pnlExisting.Visible = True
        Else
            pnlExisting.Visible = False
        End If