'lees de provincie van de ingelogde gebruiker in.
        Dim provincie As String
        provincie = DetailsView1.SelectedValue.ToString

        'maak de basisquery.
        Dim selectquery As String
        selectquery = "SELECT Personen.Id, Personen.Woonplaats, Personen.Provincie, Personen.Geslacht, Personen.Haarkleur, Personen.Beroep, Personen.Hobby, Personen.Uitgaan, Personen.Dansen, Personen.Muzieksoort, Personen.Roker, Personen.Oogkleur, Personen.Geboren " & _
"FROM (Personen INNER JOIN Provincies ON Personen.Provincie = Provincies.Provincie) " & _
"WHERE (Provincies.Buurprovincie = '" & provincie & "')"
        'test of criterium geslacht moet worden meegenomen.
        Dim checkboxgeslacht As CheckBox
        checkboxgeslacht = CType(FormView1.FindControl("checkbox1"), CheckBox)
        If checkboxgeslacht.Checked = True Then 'als checkboxgeslacht is aangevinkt.
            'lees het geslacht in.
            Dim labelgeslacht As Label
            labelgeslacht = CType(FormView1.FindControl("GeslachtLabel"), Label)
            Dim geslacht As String
            geslacht = labelgeslacht.Text
            'maak criterium voor geslacht.
            Dim selectgeslacht As String
            selectgeslacht = " AND Personen.Geslacht = '" & geslacht & "'"
            'voeg criterium geslacht toe aan basis query.
            selectquery = selectquery & selectgeslacht
        End If

        'test of criterium geborentussen ... en ... moet worden meegenomen.
        Dim checkboxgeboortejaar As CheckBox
        checkboxgeboortejaar = CType(FormView1.FindControl("checkbox2"), CheckBox)
        If checkboxgeboortejaar.Checked = True Then 'als checkboxgeboortejaar is aangevinkt.
            'lees aanvangsjaar in.
            Dim labelgeborentussen As Label
            labelgeborentussen = CType(FormView1.FindControl("GeborenTussenLabel"), Label)
            Dim aanvangsjaar As String
            aanvangsjaar = labelgeborentussen.Text
            'lees eindjaar in.
            Dim labelen As Label
            labelen = CType(FormView1.FindControl("EnLabel"), Label)
            Dim eindjaar As String
            eindjaar = labelen.Text
            'maak criterium voor geboortejaar.
            Dim selectgeboortejaar As String
            selectgeboortejaar = " AND Personen.Geboren BETWEEN " & aanvangsjaar & " AND " & eindjaar
            'voeg criterium geslacht toe aan basis query.
            selectquery = selectquery & selectgeboortejaar
        End If

        'test of criterium haarkleur moet worden meegenomen.
        Dim checkboxhaarkleur As CheckBox
        checkboxhaarkleur = CType(FormView1.FindControl("checkbox3"), CheckBox)
        If checkboxhaarkleur.Checked = True Then 'als checkboxhaarkleur is aangevinkt.
            'lees de haarkleur in.
            Dim labelhaarkleur As Label
            labelhaarkleur = CType(FormView1.FindControl("HaarkleurLabel"), Label)
            Dim haarkleur As String
            haarkleur = labelhaarkleur.Text
            'maak criterium voor haarkleur.
            Dim selecthaarkleur As String
            selecthaarkleur = " AND Personen.Haarkleur = '" & haarkleur & "'"
            'voeg criterium haarkleur toe aan basis query.
            selectquery = selectquery & selecthaarkleur
        End If

        'test of criterium oogkleur moet worden meegenomen.
        Dim checkboxoogkleur As CheckBox
        checkboxoogkleur = CType(FormView1.FindControl("checkbox4"), CheckBox)
        If checkboxoogkleur.Checked = True Then 'als checkboxoogkleur is aangevinkt.
            'lees de oogkleur in.
            Dim labeloogkleur As Label
            labeloogkleur = CType(FormView1.FindControl("OogkleurLabel"), Label)
            Dim oogkleur As String
            oogkleur = labeloogkleur.Text
            'maak criterium voor oogkleur.
            Dim selectoogkleur As String
            selectoogkleur = " AND Personen.Oogkleur = '" & oogkleur & "'"
            'voeg criterium geslacht toe aan basis query.
            selectquery = selectquery & selectoogkleur
        End If

        'test of criterium roker moet worden meegenomen.
        Dim checkboxroker As CheckBox
        checkboxroker = CType(FormView1.FindControl("checkbox5"), CheckBox)
        If checkboxroker.Checked = True Then 'als checkboxroker is aangevinkt.
            'lees roker in.
            Dim checkboxroker2 As CheckBox
            checkboxroker2 = CType(FormView1.FindControl("RokerCheckBox"), CheckBox)
            Dim roker As String
            roker = checkboxroker2.Checked
            'maak criterium voor roker.
            Dim selectroker As String
            selectroker = " AND Personen.Roker = " & roker
            'voeg criterium roker toe aan basis query.
            selectquery = selectquery & selectroker
        End If

        'test of criterium beroep moet worden meegenomen.
        Dim checkboxberoep As CheckBox
        checkboxberoep = CType(FormView1.FindControl("checkbox6"), CheckBox)
        If checkboxberoep.Checked = True Then 'als checkboxberoep is aangevinkt.
            'lees het beroep in.
            Dim labelberoep As Label
            labelberoep = CType(FormView1.FindControl("BeroepLabel"), Label)
            Dim beroep As String
            beroep = labelberoep.Text
            'maak criterium voor beroep.
            Dim selectberoep As String
            selectberoep = " AND Personen.Beroep = '" & beroep & "'"
            'voeg criterium beroep toe aan basis query.
            selectquery = selectquery & selectberoep
        End If

        'test of criterium hobby moet worden meegenomen.
        Dim checkboxhobby As CheckBox
        checkboxhobby = CType(FormView1.FindControl("checkbox7"), CheckBox)
        If checkboxhobby.Checked = True Then 'als checkboxhobby is aangevinkt.
            'lees de hobby in.
            Dim labelhobby As Label
            labelhobby = CType(FormView1.FindControl("HobbyLabel"), Label)
            Dim hobby As String
            hobby = labelhobby.Text
            'maak criterium voor hobby.
            Dim selecthobby As String
            selecthobby = " AND Personen.Hobby = '" & hobby & "'"
            'voeg criterium hobby toe aan basis query.
            selectquery = selectquery & selecthobby
        End If

        'test of criterium uitgaan moet worden meegenomen.
        Dim checkboxuitgaan As CheckBox
        checkboxuitgaan = CType(FormView1.FindControl("checkbox8"), CheckBox)
        If checkboxuitgaan.Checked = True Then 'als checkboxuitgaan is aangevinkt.
            'leesuitgaan in.
            Dim checkboxuitgaan2 As CheckBox
            checkboxuitgaan2 = CType(FormView1.FindControl("UitgaanCheckBox"), CheckBox)
            Dim uitgaan As String
            uitgaan = checkboxuitgaan2.Checked
            'maak criterium voor uitgaan.
            Dim selectuitgaan As String
            selectuitgaan = " AND Personen.Uitgaan = " & uitgaan
            'voeg criterium uitgaan toe aan basis query.
            selectquery = selectquery & selectuitgaan
        End If

        'test of criterium dansen moet worden meegenomen.
        Dim checkboxdansen As CheckBox
        checkboxdansen = CType(FormView1.FindControl("checkbox9"), CheckBox)
        If checkboxdansen.Checked = True Then 'als checkboxdansen is aangevinkt.
            'lees dansen in.
            Dim checkboxdansen2 As CheckBox
            checkboxdansen2 = CType(FormView1.FindControl("DansenCheckBox"), CheckBox)
            Dim dansen As String
            dansen = checkboxdansen2.Checked
            'maak criterium voor dansen.
            Dim selectdansen As String
            selectdansen = " AND Personen.Dansen = " & dansen
            'voeg criterium dansen toe aan basis query.
            selectquery = selectquery & selectdansen
        End If

        'test of criterium muzieksoort moet worden meegenomen.
        Dim checkboxmuzieksoort As CheckBox
        checkboxmuzieksoort = CType(FormView1.FindControl("checkbox10"), CheckBox)
        If checkboxmuzieksoort.Checked = True Then 'als checkboxmuzieksoort is aangevinkt.
            'lees de muzieksoort in.
            Dim labelmuzieksoort As Label
            labelmuzieksoort = CType(FormView1.FindControl("MuzieksoortLabel"), Label)
            Dim muzieksoort As String
            muzieksoort = labelmuzieksoort.Text
            'maak criterium voor muzieksoort.
            Dim selectmuzieksoort As String
            selectmuzieksoort = " AND Personen.Muzieksoort = '" & muzieksoort & "'"
            'voeg criterium muzieksoort toe aan basis query.
            selectquery = selectquery & selectmuzieksoort

        End If
        'lees records opnieuw in op basis van de criteria.
        SqlDataSource8.SelectCommand = selectquery
        GridView1.DataBind()