Visual Basic - que hago mal?????

Private Sub mnuFileExit_Click()
On Error Resume Next

Dim ws As Workspace
Dim db As Database
Dim rs As Recordset

For Each ws In Workspaces
For Each db In ws.Databases
For Each rs In db.Recordsets
rs.Close
Set rs = Nothing
Next
db.Close
Set db = Nothing
Next
ws.Close
Set ws = Nothing
Next

sbStatusBar.SimpleText = " Compactan"
DBEngine.CompactDatabase "telefonos97.mdb", _
"telefonos97CO.mdb"
Kill "telefonos97.mdb"
Name "telefonos97CO.mdb" As "telefonos97.mdb"
Unload Me


End Sub

Si quito los For Each...Next me sale "Error 3356 ..."

y os respondeis a vos mismo?
teneis problemas de doble personalidad?
o ya no sabeis ni siquiera quien sois?

aunque yo inventara esto del windows no llego a captar la magnitud de la situacion que describes.
si no eres el mismo, porque escribes con el mismo nick y no buscas otro para llevarle la contra al autentico?
si a mi me dicen hace treinta años que iba a pasar esto, me hubiera quedado en mi garaje haciendo palomitas de maiz.

Pues muchas gracias a los dos por atender mi petición. Aunque... para lo que me sirve...