Attribute VB_Name = "TNAModule"

Sub dataform_show()

dataform.Show

Sub statsform_show()

statsform.Show

Sub toolbar()

Dim mytoolbar As CommandBar

Set mytoolbar = CommandBars.Add("Data Management")

With mytoolbar

.Position = msoBarFloating

.Visible = True

Dim src As CommandBarControl, stats As CommandBarControl

Set src = mytoolbar.Controls.Add(Type:=msoControlButton)

With src

.FaceId = 1849

.OnAction = "dataform_show"

.TooltipText = "Search"

Set stats = mytoolbar.Controls.Add(Type:=msoControlButton)

With stats

.FaceId = 3736

.OnAction = "statsform_show"

.TooltipText = "Statistics"

Sub toolbarclose()

Application.CommandBars("Data Management").Delete