为什么会有表达式不匹配的情况发生？请指教

cdw991501

Private Sub Text17_AfterUpdate()
Dim b
If Not IsNull(Me.Text17) Then
b = "SELECT 表头.ID, 表头.姓名 FROM 表头 WHERE 表头.ID  = Text17"
List4.RowSource = b
List4.Requery
End If
List4 = ""
End Sub

（注：我的ID是自动编码，想要在Text17输录数字，筛选ID相符的纪录，在列表框List4显示）

todaynew

b = "SELECT 表头.ID, 表头.姓名 FROM 表头 WHERE 表头.ID  ="  &  me.Text17.value

cdw991501

感谢