MS Access - 自动填充在组合框中不起作用

Question

我已经创建了一个组合框，数据将从SQL Server中填充，但我发现此组合框的自动填充功能不起作用。我的代码有问题吗？感谢。

   Dim oCon As ADODB.Connection
   Dim oRec As ADODB.Recordset
   Dim strQuery As String

   Set oCon = New ADODB.Connection
   Set oRec = New ADODB.Recordset

   oCon.Open "connection string"

   strQuery = "select statement"

   oRec.Open strQuery, oCon, adOpenKeyset, adLockOptimistic

   Me.cbxUser.RowSourceType = "Table/Query"
   Set Me.cbxUser.Recordset = oRec

于2018年1月16日更新

似乎使用 ComboBox.AddItem 方法解决了该问题。但是当我使用Set Me.cbxUser.Recordset = oRec时，我不知道为什么自动填充功能不起作用

Set oRec = oCon.Execute(strQuery)
Me.cbxUser.RowSourceType = "Value List"

Do While Not oRec.EOF
    Me.cbxUser.AddItem (oRec("UserID"))
    oRec.MoveNext
Loop

GIF file