主题：[原创]关于狐表和ID读卡器连接的问题

各位老师我现在在窗口中添加了一个文本框，然后在事件ValueChanged中输入以下代码

Dim txt As String = e.Form.Controls("TextBox19").Text
Dim tbl As Table = Tables("第2012届")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "ID卡号 Like " & txt
End If

目前每次都需要用鼠标点击该文本框，并删除之前的内容，然后刷卡就可以找到对应的人。这样太麻烦了，请问怎样才能在窗口界面一刷卡直接就显示资料呢？？