llenar un combo de word con datos desde access

Hola

Quiero llenar un combobox de un formulario de word con los datos de una
tabla access, el codigo que he puesto es:

Private Sub ComboBox1_Click()
Dim dbs As Database
Set dbs = OpenDatabase("c:\projectes\test1.mdb")
Dim rst As Recordset
Set rst = dbs.OpenRecordset("SELECT * FROM operadors")
ComboBox1.ColumnCount = 1
rst.MoveFirst
Dim i As Single
Set i = 0
Do While Not rst.EOF
ComboBox1.List(i) = rst.Fields("nom").Value & " ," &
rst.Fields("cognoms").Value
rst.MoveNext
i = i + 1
Loop

End Sub

la tabla de access se llama operadors y la base de datos test1 y tiene 3
campos; num, nom i cognoms
hay 5 entradas en la base de datos
esperaba ver un combo que al desplegarse enseñara las 5 entradas, pero no
pone nada

Me imagino que es una tonteria pero, para variar, no se que hago mal

Muchas gracias por vuestra ayuda