如何使组合框从模型中选择一个项目？

Question

我正在尝试进行更新，在我的更新表单中有一个组合框，其项来自数据库中填充的模型。 现在，我要尝试的是它自动选择来自特定记录数据库的项目。

下面是代码

Sub FillColumn()

    Const cCol As Variant = "J"    ' Last-Row-Column Letter/Number
    Const cCol1 As Variant = "AD"
    Const cCol2 As Variant = "X"
    Const cCol3 As Variant = "AE"
    Const cFirstR As Long = 1      ' First Row

    Dim rng As Range    ' Last Used Cell in Last-Row-Column
    Dim i As Long       ' Row Counter

    Set rng = Columns(cCol).Find("*", , xlFormulas, , xlByColumns, xlPrevious)
    If rng Is Nothing Then Exit Sub

    For i = cFirstR To rng.Row - 1
        If Cells(i + 1, cCol) <> Cells(i, cCol) Then
            Cells(i + 1, cCol3) = Cells(i + 1, cCol1) - Cells(i + 1, cCol2)
          Else
            Cells(i + 1, cCol3) = Cells(i, cCol3) - Cells(i + 1, cCol2)
        End If
    Next

End Sub

我在SectorCombobox中有2个项目，在categorycombobox中有2个项目。 它由数据库填充，但我希望它选择一个特定的项目。 你们都知道更新的工作原理。