使用VB从SQL DB填充MS Word下拉框

Question

我有一个DB，可以从问卷中得到答案。我有一个类似于问卷的单词模板，它有文本框，下拉框和复选框。因此，我可以读取数据库并将数据从数据库分配给模板文本输入。我无法找到访问活动X下拉框的方法，并从数据库中为它们分配正确的答案。例如，我有一个下拉菜单，可能的答案是“是”，“否”和“选择”。如果此人没有回答，则应在模板上说“选择”。如果他们这样做，那么从数据库中读取答案，模板应该在下拉列表中反映是/否。我如何使用VB进行此操作？访问数据库不是问题，只是访问和更改控件显示的内容。

我的代码，用于访问和设置模板上的文本输入框：

Dim ilsh As InlineShape
Dim sh As Shape
Dim ob As Object
Dim count As Integer
count = 0


For Each ilsh In ActiveDocument.InlineShapes
    If ilsh.Type = wdInlineShapeOLEControlObject Then
        Set ob = ilsh.OLEFormat.Object
         ob.value = rsText(ob.Name)
         'Debug.Print ob.Name, ob.value
         ActiveDocument.FormFields(ob.Name).Result = ob.value
    End If
Next ilsh

这似乎只适用于文本框。我需要改变什么来完成同样的事情呢？

这是下拉菜单的设置方式：