VB多线程,该如何解决

VB多线程
程序进行数据库读取统计的过程会有假死状态
想在这个等结果的漫长时间里加个进度条
有人告诉我用多线程
多线程我现在还什么都不了解，大家能给我指点一下吗？
我会努力多赚分，把分散给大家的

[解决办法]
又见VB6.0的多线程。
这也是我奋斗很久但都未成功的东西。
简单的说，VB6.0本身不支持多线程，你可以自己编程实现，但及其不稳定。很不容易。
这本书里面有关于多线程的介绍，不过比较难。
http://download.csdn.net/source/1371398
[解决办法]
直接把相关的功能做成一个独立的activeX控件(.OCX文件) 然后在自己的工程中使用,能达到效果吗?
[解决办法]
用异步的方式读取数据就可以了

VB code

Private WithEvents css As ADODB.Connection'……rs.Open "select * from table1 ", , , , adAsyncExecute'……Private Sub css_ExecuteComplete(ByVal RecordsAffected As Long, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pCommand As ADODB.Command, ByVal pRecordset As ADODB.Recordset, ByVal pConnection As ADODB.Connection)    MsgBox "查询完毕,共" & rss.RecordCount & "条记录."    css.Close    Set css = NothingEnd Sub
[解决办法]
支持楼上的，我一般就用DoEvents来解决假死问题。
[解决办法]
不要为了线程而线程
[解决办法]
异步方式可以在一定程度上改善假死的情况
[解决办法]
doevents和事务；
多线程就算了吧