主题：如何在检索历史记录时加入一个进度条

 老师，我想实现在窗口检索历史记录时，加入一个检索进度，这个代码是写到Button里吗，怎么修改以下代码实现进度条的效果呢？
Dim txt As String = e.Form.Controls("TextBox21").Text
Dim dt As DataTable = DataTables("Record")
If txt > "" Then
    txt = "'%" & txt & "%'"
    txt = "TX1 Like " & txt & " Or TX6 Like " & txt & " Or TX7 Like " & txt & " Or TX8 Like " & txt & " Or TX9 Like " & txt & " Or TX10 Like " & txt & " Or TX11 Like " & txt & " Or TX12 Like " & txt & " Or TX13 Like " & txt & " Or TX14 Like " & txt & " Or TX15 Like " & txt & " Or TX15 Like " & txt & " Or TX16 Like " & txt & " Or TX17 Like " & txt & " Or TX18 Like " & txt & " Or TX19 Like " & txt & " Or TX20 Like " & txt & " Or TX21 Like " & txt & " Or TX22 Like " & txt & " Or TX23 Like " & txt & " Or TX24 Like " & txt & " Or TX25 Like " & txt
 Else
  txt = ""
 MessageBox.show("请输入要查找的车号","提示")
 Return
End If
dt.LoadFilter = txt
dt.Load
帮忙了

数据都是针对后台的，本身就是个小系统，没有必要用多线程了，没办法使用进度条那也没辙了。