代码范例

Private mclsSC供应商ID As New SearchComboBox  '定义模糊查询类变量

    mclsSC供应商ID.Init Combo:=Me.供应商ID, _
                     SearchField:="供应商名称 & 拼音码", _
                     SQLSelect:="供应商ID,供应商名称", _
                     SQLFROM:="供应商信息表", _
                     SQLWhere:="已停用=0", _
                     SQLORDERBY:="供应商名称"

 还要在窗体关闭事件加句：

Private Sub Form_Close()
    Set mclsSC供应商ID = Nothing
End Sub