Visual Basic - Que hago mal ???? / 2

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 ..."

El error que da es base de datos abierta, lo que haces mal es no cerrar la base de datos después de usarla, que es lo que hacen los For Each...Next .

Bueno parece que he conseguido parte de lo que quería hacer. Y digo parte por que todo se cierra, se efectúa la compactación, pero... (siempre hay un pero) el programa no lee la ultima instrucción " Unload Me" con lo que no sale de la aplicación.
Acepto sugerencias.

Gracias a los que me habeis contestado. :-)

Si el programa debe cerrarse ya, utiliza "End" en lugar de "Unload me"

Pero que obvio, pero que obvio, si es que...

Muchas gracias