mailmerged document by using automation from VB.NET to OFFICE 2000

[Karel]

Hi,

I have developed a vb.net application to create a mail-merged
document by
using Automation to word from VB.NET.
I added the following reference to the application:
Microsoft Office 10.0 Object Library

In runtime, when I click that button, I open a word doc. I create a
commandbar whith in that commandbar a combobox with a list of fields
to mailmerge.
When I select any value from the combobox,that value is added as
mailmerge field and is displayed on the word doc

This works perfect in Office XP but in Office 2000 you can't select a
field out of the list.

This is my code:

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim d1 As Word.Document
Dim dtcol As DataColumn
WordApp.Visible = True
WordApp.WindowS tate = Word.WdWindowSt ate.wdWindowSta teMaximize
d1 = WordApp.Documen ts.Open(FileNam e:=Application. StartupPath
& "\test.doc" , Visible:=True)
d1.Activate()
Dim fld
Dim cbar1 As Office.CommandB ar
Dim myControl As Office.CommandB arComboBox
cbar1 = d1.CommandBars. Add(Name:="Veld en",
Position:=Offic e.MsoBarPositio n.msoBarFloatin g, Temporary:=True )
cbar1.Visible = True
myControl = cbar1.Controls. Add(Type:=Offic e.MsoControlTyp e.msoControlCom boBox)

For Each dtcol In
lijstpersonen.o DataTable.Defau ltView.Table.Co lumns
myControl.AddIt em(dtcol.Column Name)
Next
myControl.DropD ownLines = 10
myControl.DropD ownWidth = 150
myControl.ListH eaderCount = 0
ctlComboBoxHand ler.SyncBox(myC ontrol, d1)
End Sub
End Class
'Following class to handle change event of combobox of commandbar in
worddocument
Public Class ComboBoxHandler
Private d As Word.Document
Private WithEvents ComboBoxEvent As Office.CommandB arComboBox
Public Sub SyncBox(ByVal box As Office.CommandB arComboBox, ByVal
d1 As Word.Document)
ComboBoxEvent = box
d = d1
End Sub
Private Sub ComboBoxEvent_C hange(ByVal Ctrl As
Office.CommandB arComboBox) Handles ComboBoxEvent.C hange
Dim a As Word.Selection
a = d.ActiveWindow. Selection

d.MailMerge.Fie lds.Add(a.Range , Ctrl.Text)
a = Nothing
End Sub

Another problem I have is when I open the document the first time, it
works perfectly. I close it again, and then I open it for a second
time, I get a message that the RPC-server is not avalailable.

Can somebody help me with these two problems?

Thanx

Karel