llenar combo word

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 ...