数据有引号，在combobox里的Limit to List无法找到。

想要直接复制粘贴东西进去是不可能的了。不过可以通过NotinList事件，来修改List的RowSource，并设置Response=acDataErrAdded

当用户复制粘贴之后，触发NotinList事件，在事件中，修改RowSource，让其select用户新输入的数据，此时会自动弹出下拉框，让用户手动选择一下即可。

举例：

'在Open Form时，设置combox的RowSource，获得所有数据

Private Sub Form_Open(Cancel As Integer)

Me.MaterialCodeDesc.RowSource = "vwcboMaterialDesc"

End Sub

'当数据“不在List中”（本来应该在的，但是因为引号的问题，ADP识别不了，所以提示不在List里面），此时，修改RowSource，让其select你输入的数据，以减少下拉框候选数量，并设置Response=acDataErrContinue避免弹出警告消息。下拉框会自动弹出，里面只有较少数据可供选择。

Private Sub MaterialCodeDesc_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
If NewData = "" Then
MaterialCodeDesc.RowSource = "SELECT MaterialCode, MaterialDescription FROM tblMaterial ORDER BY MaterialCode"
Else
MaterialCodeDesc.RowSource = "SELECT MaterialCode, MaterialDescription FROM tblMaterial where materialdescription like '%" & NewData & "%' ORDER BY MaterialCode"
End If
End Sub

'当失去焦点时，把RowSource设置回所有数据，这里用了个判断语句，可以避免重复连接数据库刷新Rowsource而造成缓慢。

Private Sub MaterialCodeDesc_LostFocus()
If MaterialCodeDesc.RowSource <> "vwcboMaterialDesc" Then
    MaterialCodeDesc.RowSource = "vwcboMaterialDesc"
End If
End Sub