Dim cmd As New OleDbCommand("SELECT PersoonlijkeInfo.* FROM PersoonlijkeInfo, WoonplaatsRegio, VoorkeurInfo " & _
"WHERE PersoonlijkeInfo.GeslachtID=@geslacht AND " & _
"WoonplaatsRegio.RegioID=@regio AND " & _
"VoorkeurInfo.TypeID=@zoekvoor AND " & _
"PersoonlijkeInfo.GeboorteDatum >= @minDatum AND " & _
"PersoonlijkeInfo.GeboorteDatum <= @maxDatum AND " & _
"PersoonlijkeInfo.Lengte >= @minLengte AND " & _
"PersoonlijkeInfo.Lengte <= @maxLengte AND " & _
"PersoonlijkeInfo.Gewicht >= @minGewicht AND " & _
"PersoonlijkeInfo.Gewicht <= @maxGewicht AND " & _
"PersoonlijkeInfo.OgenKleurID = @Ogen AND " & _
"PersoonlijkeInfo.HaarKleurID = @Haarkleur AND " & _
"PersoonlijkeInfo.HaarSnitID = @Haarsnit AND " & _
"PersoonlijkeInfo.RokenID = @Roken AND " & _
"PersoonlijkeInfo.DrankgebruikID = @Drankgebruik AND " & _
"PersoonlijkeInfo.WoonplaatsID=WoonplaatsRegio.WoonplaatsID AND " & _
"PersoonlijkeInfo.AbonnementID=VoorkeurInfo.AbonnementID")
cmd.Parameters.AddWithValue("@geslacht", geslacht)
cmd.Parameters.AddWithValue("@regio", regio)
cmd.Parameters.AddWithValue("@zoekvoor", zoekvoor)
cmd.Parameters.AddWithValue("@minDatum", Date.Today.AddYears(-maxLeeftijd))
cmd.Parameters.AddWithValue("@maxDatum", Date.Today.AddYears(-minLeeftijd))
cmd.Parameters.AddWithValue("@minLengte", minLengte)
cmd.Parameters.AddWithValue("@maxLengte", maxLengte)
cmd.Parameters.AddWithValue("@minGewicht", minGewicht)
cmd.Parameters.AddWithValue("@maxGewicht", maxGewicht)
cmd.Parameters.AddWithValue("@OgenKleurID", ogen)
cmd.Parameters.AddWithValue("@HaarkleurID", haarkleur)
cmd.Parameters.AddWithValue("@HaarSnitID", haarsnit)
cmd.Parameters.AddWithValue("@RokenID", roken)
cmd.Parameters.AddWithValue("@DrankgebruikID", drankgebruik)