cmd.CommandText = "select distinct contact_exhibit from contacts where" & _
  "contact_date >= " & converted_start_date & " order by contact_exhibit asc"

        'Es sollen nur eine bestimmte Anzahl Einträge gezeigt werden
        'Die Einträge die angezeigt werden, sollen nicht älter als 
        ' age_of_entries Monate sein
        start_date = DateAdd(DateInterval.Month, -age_of_entries, Date.Today)
        'Um das Datum in einer Datenbankabfrage zu nutzen, muss es entsprechend 
        ' umformatiert werden
        'Das ist zwar unverhältnismäßig kompliziert, leider habe ich aber 
        ' keinen anderen Weg!
        converted_start_date = Convert.ToDateTime(start_date).ToString( _
          "dd-MM-yyyy")