Playing With Commandbars

Hi all, can anyone tell me what I'm doing wrong? I'm testing the code below that's supposed to enable all commandbars and make them visible if appropriate- but it is causing access to shutdown whenever I run it. If I can get it to work I want to be able to reset a users toolbars after my app has changed them-not perfect, I think this still dumps any customization the user had previously.

Public Function enableTools()
On Error GoTo Err_enableTools
'enable all toolbars
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = True
Debug.Print CommandBars(i).Name
DoCmd.ShowToolbar CommandBars(i).Name, acToolbarWhereApprop
Next i
Exit_enableTools:
Exit Function
Err_enableTools:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_gottaGo
End Function