Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim jahr As Integer = CInt(ComboBox1.Text)
        If CInt(ComboBox1.Text) Then
DV1.RowFilter = "Geburtsdatum>=#01/01/" & CStr(jahr) & "# And" & _
  "Geburtsdatum<#01/01/" & CStr(jahr + 1) & "#"
            'Prüfung ob Datensätze vorhanden sind
            If DV1.Count = 0 Then
                MessageBox.Show("Kein Datensatz vorhanden!", "Info!", _
                MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
            'alle Datensätze werden angezeigt
            DV1.RowFilter = ""
            With Me
                'Combobox1 Feldinhalt wird gelöscht
                .ComboBox1.Text = ""
            End With
        End If
End Sub

VB@rchiv its the Best