访问VBA：根据非绑定列在组合框中查找项目

我在 Access 表单上有一个两列组合框，表示键到代码的映射。组合框的第一列是“绑定列”（即，当MyComboBox.Value叫做）。

我需要动态设置Value我的组合框基于第二列中找到的值。例如，如果我的组合框源是：

Value | Code
===============
 A1    | ABCD
 A2    | EFGH
 A3    | IJKL

我可以简单地设置组合框的值ComboBox.Value = "A2"，但是我如何使用第二列做同样的事情？ComboBox.Value = "EFGH"显然是无效的。本质上是沿着以下路线寻找逻辑ComboBox.Value = ComboBox.ValueWhereSecondColumnEquals("EFGH")

假设它不是基于表/查询：

Dim i As Integer

For i = 0 To ComboBox.ListCount-1
    If ComboBox.Column(1, i) = "EFGH" Then
        ComboBox.Value = ComboBox.ItemData(i)
        Exit For
    End If
Next i