Public Sub RapoarteTTT()

Dim recrap As Recordset
Dim rpt As Report
'purpose: at each open of database this sub



'DoCmd.OpenQuery ("stergrap") (_DELETE ALL RECORDS From TAB_Rapoarte table)

Set recrap = CurrentDb.OpenRecordset("TAB_Rapoarte") ' TAB_Rapoarte is a table with fields
' Nume-text 255
' Descriere - text 255

For Each rpt In Reports

recrap.AddNew
recrap!nume = rpt.Name
recrap!descriere = rpt.Caption
recrap.Update

Next rpt
recrap.Close
Set recrap = Nothing

End Sub

-----------
This sub don't work that i want, the table TAB_Rapoarte is empty after ai run it..
I use win 2000 / access 97 or win XP with access 2000
This sub don't work in no one..
Why?

Please excuse my bad english, i don't spek verry well ..