如何加入进度条效果？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，我如何在下面的这段代码中加入一个进度条

Dim txt As String = e.Form.Controls("TextBox23").Text

Dim dt As DataTable = DataTables("Record3")

If txt > "" Then

txt = "'%" & txt & "%'"

txt = "客户名 Like " & txt & " Or 车号1 Like " & txt & " Or 车号2 Like " & txt & " Or 车号3 Like " & txt & " Or 车号4 Like " & txt & " Or 车号5 Like " & txt & " Or 车号6 Like " & txt & " Or 车号7 Like " & txt & " Or 车号8 Like " & txt & " Or 车号9 Like " & txt & " Or 车号9 Like " & txt & " Or 车号10 Like " & txt & " Or 品种 Like " & txt & " Or 包装 Like " & txt & " Or 备注 Like " & txt & " Or 用户名 Like " & txt & " Or 重打用户 Like " & txt

Else

txt = ""

MessageBox.show("请输入要查找的车号","提示")

Return

End If

dt.LoadFilter = txt

dt.Load

主题：如何加入进度条效果？