@idTypeB int = Поле8 ,  @idBuild int = Поле12

Private WithEvents SortACBtn As Office.CommandBarButton
Private WithEvents SortDeBtn As Office.CommandBarButton


Private Sub SortACBtn_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
On Error Resume Next

'CancelDefault = True   - если вместо сортировки своя процедура'

....


End Sub

Private Sub SortDeBtn_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
'MsgBox  "Сортировка по Убыванию " 


End Sub


Private Sub Form_Load()
Set SortACBtn = CommandBars.FindControl(id:= 210 )
Set SortDeBtn = CommandBars.FindControl(id:= 211 )
End Sub