组合框上边输入边模糊筛选的问题

如何将咱家是猫 老师的"组合框上边输入边模糊筛选"的方法在模块里改成通用的方法，见咱家是猫的例子：http://www.accessoft.com/article-show.asp?id=3155

Option Compare Database
Private b


Private Sub 堆头陈列商品_Change()
    Dim a As String
    a = "*" & Me.堆头陈列商品.Text & "*"
    Me.堆头陈列商品.RowSource = "SELECT 商品ID, 货品编号 FROM 商品目录 Where 货品编号 like '" & a & "';"
    Me.堆头陈列商品.Dropdown
    b = Me.堆头陈列商品.Column(0, 0)
End Sub


Private Sub 堆头陈列商品_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp, vbKeyDown
        Me.堆头陈列商品.OnChange = ""
    Case Else
        Me.堆头陈列商品.OnChange = "[Event Procedure]"
    End Select

 End Sub


Private Sub 堆头陈列商品_NotInList(NewData As String, Response As Integer)
    Dim ctl As Control
    Set ctl = Me!堆头陈列商品
    Response = acDataErrContinue
    ctl.Undo
    Me.堆头陈列商品 = b
    Me.堆头陈列商品.RowSource = "SELECT 商品ID, 货品编号 FROM 商品目录;"
    SendKeys ("{Tab}")
End Sub

如何将以上在模块里改成通用的方法，如同红尘如烟老师的“组合框下拉列表模糊查询功能的完美实现”