在组合框中，设置了唯一值，在没有加入模糊自动过滤代码前显示唯一值，加入了之后就全部显示出来，不知道是代码问题还是其他地方问题，谢谢！
在窗体加载代码加入如下代码：

Private mclsSC往来单位名称 As New SearchComboBox  '定义模糊查询类变量
再在下面这个代码下加入以下代码：
Private Sub Form_Load()
  On Error GoTo ErrorHandler
  Dim strSQL As String
  Dim cnn As ADODB.Connection
  Dim rst As ADODB.Recordset
  Dim rstTmp As DAO.Recordset
mclsSC往来单位名称.Init Combo:=Me.往来单位名称, _
                     SearchField:="往来单位名称 & 联系人", _
                     SQLSELECT:="往来单位名称,往来单位名称", _
                     SQLFROM:="往来单位信息表", _
                     SQLWhere:="已停用=0", _  （此句一般不用）
                     SQLORDERBY:="往来单位名称"