Sub ProbandoBuho()
Dim Mensaje As String
   Dim PrimerRecordset As DAO.Recordset
   Dim SegundoRecordset As DAO.Recordset
   Set PrimerRecordset = CurrentDb.OpenRecordset( _
       "SELECT * FROM TuTabla", dbOpenDynaset)
   ' muevo el recordset (Ojo no tiene que estar vacio, si no da error)
 If PrimerRecordset.RecordCount <> 0 Then
   PrimerRecordset.MoveLast
   'aqui añado registros
   'en efecto, si hago recordcount me devuelve todos, los de antes+los de ahora
   PrimerRecordset.AddNew
   PrimerRecordset!Tucampo = "Hola Mundo"
   PrimerRecordset.Update
   'pero...abro un segundo recordset, que será filtro del primero
   Set SegundoRecordset = Filtrando(PrimerRecordset, "TuCampo", _
       "Hola Mundo")
      With SegundoRecordset
         If .RecordCount <> 0 Then .MoveLast
         MsgBox "Numero registros TOTAL en la tabla: " & vbCr & _
             PrimerRecordset.RecordCount & vbCr & _
             "Registros añadidos con 'Hola Mundo': " & .RecordCount, _
             vbInformation, "Resultados"
         .Close
      End With
 End If
 PrimerRecordset.Close
End Sub

Function Filtrando(RstTemporal As DAO.Recordset, _
    NombreCampo As String, filtrocampo As String) As Recordset
   RstTemporal.Filter = NombreCampo & " = '" & filtrocampo & "'"
   Set Filtrando = RstTemporal.OpenRecordset
End Function