Vba 用VB用SQL DB中的数据填充MS Word下拉框

我有一个DB，它有问卷调查的答案。我有一个类似于调查问卷的单词模板，它有文本框、下拉框和复选框。因此，我可以读取数据库并将数据库中的数据分配给模板文本输入。我很难找到一种方法来访问活动的X下拉框，并从DB中为它们分配正确的答案。例如，我有一个下拉列表，可能的答案是“是”、“否”和“选择”。如果此人没有回答，则应在模板上显示“选择”。如果有，则从数据库中读取答案，模板应在下拉列表中反映是/否。我如何用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

这似乎只适用于文本框。我需要改变什么才能完成下拉列表的相同功能

以下是下拉列表的设置方式：