VB.NET读取数据库时多线程显示进度条

VB.net通过ADO.NET连接数据库，或执行查询语句等，都需要等待一段时间，这段时间界面无法操作，程序显示出假死现象，无任何响应，为了不让用户误认为电脑死机，需要显示一个进度条来提示用户。但是问题在于，ADO.NET（包括其它数据库引擎）在执行指令时并不返回实时状态信息，只有在命令执行完毕后，才返回结果。因此，需要通过VB.NET多线程技术，在ADO.NET执行命令期间，显示一个不断变化的进度条，这个进度条是一个单独窗口：

窗体命名为TaskProgress，放置一个ProgressBar控件命名为ProgressIndicator，代码如下：

Public Class TaskProgress
        Private Sub TaskProgress_Load(ByVal sender As System.Object, ByVal e As System.EventArg