编写keydown事件
If e.KeyCode = Keys.Enter Then Tables("站码查询表").filter = "名称 like '*" & e.Form.Controls("textbox1").value & "*' or 代码 like '*" & e.Form.Controls("textbox1").value & "*'" e.Cancel = TrueEnd If