Access - error 438 en tiempo de ejecucion

estoy queriendo adiconar un estilo a todo el menu, pero no se como solventar es error.

en espera de un consejo o ayuda.

Gracias de antemano



Option Explicit


Public Colbtns As New Collection
Public styleCss As css

Public Function style(Myform As Object)
Dim ctrl As Control
For Each ctrl In Myform.Control
If ctrl.Tag = "menu-sidebar" Then
Set styleCss = New css
Set styleCss.menu_sidebar = ctrl
Colbtns.Add styleCss = New css






End If



Next ctrl




End Function