Dim cBars As CommandBars error

The below procedure returns error "user-defined type not defined" with Dim cBars As CommandBars highlighted.  I tried "Dim cBars As DAO.CommandBars" with the same results. I have verified that the reference to DAO3.6 is checked.

Any help appreciated.

Public Sub ToggleCmdBars()
 
  Dim cBars As CommandBars
  Dim cBar As CommandBar
   
  Set cBars = Application.CommandBars '   reference databases commandbars collection
   
  For Each cBar In cBars '   loop through each commandbar in the commandbars collection
    With cBar
      If .TYPE = 0 Then '    if it is a tool Bar, disable it
        If .Enabled = False Then
          .Enabled = True
        Else
          .Enabled = False
        End If
      ElseIf .TYPE = 1 Then '    if it is a menu Bar, disable it
        If .Enabled = False Then
          .Enabled = True
        Else
          .Enabled = False
        End If
      End If
    End With
  Next

'Pop-Up menus remain enabled
End Sub