组合框筛选数据

看了论坛的帖子，想做个组合框筛选http://www.accessoft.com/article-show.asp?id=11120 就想得到这个效果

但是我把事件代码改好之后，筛选，相应的其他格子不变，不知道为什么，请高手指教，非常感谢。

代码是这样的，代码我是根据例子里考过来的，不知道哪里设置错了。非常感谢。

Option Compare Database


Private Sub 机型_AfterUpdate()
     Dim strSQL        As String
     Dim rst           As ADODB.Recordset
If Me.供应商ID <> "" Then
    strSQL = "SELECT * FROM [各机型公差] WHERE [机型]=" & Me.机型
   Set rst = CreateObject("ADODB.Recordset")
     rst.Open strSQL, CurrentProject.Connection
   rst.MoveFirst

    Me![筋位] = rst![筋位]
    Me![孔位] = rst![孔位]
    
    rst.Close
    Set rst = Nothing


    End If
End Sub


End Sub