Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim jahr As Integer = CInt(ComboBox1.Text)
        DV1.RowFilter = "Geburtsdatum>=#01/01/" & CStr(jahr) & "# And" & _
          "Geburtsdatum<#01/01/" & CStr(jahr + 1) & "#"
        If DV1.Count = 0 Then
            MsgBox("Nix gefunden")
            DV1.RowFilter = ""
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist