Sub Aktu() ' Filter aktualisieren
         If Nam.Text = "" And Vornam.Text = "" And Geb.Text = "" Then
             Data.Recordsets("ID").MoveFirst
             Data.Recordsets("ID").Filter = ""
         Else
             Data.Recordsets("ID").Filter = "Vorname like '" & Vornam.Text & _
               "%'"
         End If
     Data.Recordsets("ID").Update
     Data.Recordsets("ID").MoveFirst
     Anz.Refresh
End Sub

electra

---------------------------------------------------------
Ein Commputer kann nix,
ist aber schnell.