MS Word and CommandBar [RESOLVED]

[Bombdrop]

Hi all need some help over here. I am placing a Cobmbox in the standard command bar in MS Word, I want to know how i can detect if the value in the combo has changed.

I have wrote the followig to fill the combo put how can i detect if the value has changed

Dim conTelList  As ADODB.Connection
Dim recNames    As ADODB.Recordset
 
Set conTelList = New ADODB.Connection
 
conTelList.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Lvp-web\published\websites\Ganda intranet\_databases\phone_internal2000.mdb;Persist Security Info=False"
Set recNames = New ADODB.Recordset
recNames.Open "plist1partner", conTelList
 
 
 
Dim objToolbar As CommandBar
 
Dim btnItem2 As CommandBarComboBox
 
Set objToolbar = CommandBars("standard")
 
 
Set btnItem2 = objToolbar.Controls.Add(Type:=msoControlComboBox, _
    Temporary:=True)
    
With btnItem2
    Do While Not recNames.EOF
        .AddItem recNames(1)
        recNames.MoveNext
    Loop
    btnItem2.ToolTipText = "Names"
 
End With

Thanks!!!!

[Bombdrop]

Found out how to do it

btnItem2.OnAction = "MySub"