在Ms Access VBA中，可以使用AcControlType枚举类型来设置多值组合框的控件类型。下面是一个示例代码，展示了如何使用AcControlType枚举来创建一个多值组合框。

首先，需要在代码模块的顶部添加一个引用，以便可以使用AcControlType枚举。在模块的顶部添加以下代码：

Option Compare Database
Option Explicit

' 添加对Microsoft Access库的引用
Private Declare PtrSafe Function AccessibleObjectFromWindow Lib "oleacc" (ByVal hwnd As LongPtr, ByVal dwId As Long, riid As Any, ppvObject As Object) As Long

Enum AcControlType
    acLabel = 1000
    acTextbox = 1090
    acCheckbox = 1060
    acCombobox = 1110
    acListBox = 1100
    acOptionButton = 1140
    acToggleButton = 1150
    acCommandButton = 1040
    acSubform = 1120
    acImage = 1030
    acPage = 1240
    acTabControl = 1230
    acToggleButtonGroup = 1170
    acOptionGroup = 1160
    acTab = 1220
    acObjectFrame = 1035
    acFrame = 1034
    acLine = 1032
    acRectangle = 1033
    acImageFrame = 1061
    acPageBreak = 1180
    acCustomControl = 1190
    acWebBrowser = 1183
    acAttachment = 1173
    acNavigationButton = 1193
    acDefaultControl = 1099
    acWebControl = 1194
    acWebDatasheet = 1198
    acOLEObject = 1038
    acBoundObjectFrame = 1172
    acActiveXControl = 1112
    acSubformDatasheet = 1121
    acWebBrowserControl = 1183
    acDatasheet = 1057
    acPivotTable = 1064
    acLabelEx = 1115
    acTextBoxEx = 1114
    acComboBoxEx = 1116
    acListBoxEx = 1117
    acOptionButtonEx = 1118
    acToggleButtonEx = 1119
    acBoundObjectFrameEx = 1174
    acCheckBoxEx = 1145
    acNavigationControl = 1204
    acGridDatasheet = 1214
    acForm = 1002
    acReport = 1003
    acServerView = 1101
End Enum

接下来，可以使用AcControlType枚举类型来创建一个多值组合框。例如，以下是一个示例函数，用于创建一个多值组合框：

Sub CreateMultiValueComboBox()
    Dim ctl As Control
    Dim strControlName As String
    
    ' 创建一个新的多值组合框
    strControlName = "MultiValueComboBox"
    Set ctl = CreateControl(Me.Name, acCombobox, acWindowNormal, "", "", 0, 0, 2000, 500)
    ctl.Name = strControlName
    ctl.RowSourceType = "Value List"
    ctl.RowSource = "Value 1;Value 2;Value 3"
    
    ' 设置多值组合框的属性
    ctl.MultiSelect = True
    ctl.AllowValueListEdits = False
    ctl.AllowValueListInFieldList = False
    
    ' 显示多值组合框
    ctl.Visible = True
End Sub

在上面的示例中，CreateMultiValueComboBox函数创建了一个名为"MultiValueComboBox"的多值组合框，并设置了其RowSourceType为"Value List"，RowSource为"Value 1;Value 2;Value 3"。然后，它使用ctl.MultiSelect = True来启用多选功能，并使用ctl.AllowValueListEdits = False和ctl.AllowValueListInFieldList = False来禁用编辑功能。

最后，通过将ctl.Visible = True来显示多值组合框。

你可以根据自己的需求修改上述代码，并根据需要将其放置在适当的事件中，例如表单的打开事件或按钮的点击事件。