主题：求救一个代码

Dim txt As String = e.Form.Controls("ComboBox9").Text
Dim tbl As Table = Tables("表a")
If txt = "" Then
    tbl.filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.filter =  "  编号 Like" & txt  
End If

这个代码是用来查找的。我想要的结果是，只是光标移动到指定行。