VB 连接数据库时如何动态显示连接进度？

VB 在连接数据库时如果数据库设置正常，没有问题。
但如果数据库设置错误，或者数据库没有启动，就会造成长时间等待假死状态。
怎样实现在连接过程中动态显示连接过程呢？以免使用户误认为是死机状态。
我在代码中用了Timer+progressbar的方法，但是调用出后progressbar一直停滞在0,不能动态显示。
代码如下：
Private Sub Command1_Click() 
  Timer1.Enabled = True
  timer1.Interval=500  
  XPProgressBar1.Visible = True
  DoEvents
  Connstr = "Provider=SQLOLEDB.1;Data Source=" & SQL_name & ";UID=" & SQL_sa & ";PWD=" & SQL_Password & ";initial catalog=Text"
  SQLConn.Open Connstr       ' 问题在这里，如果数据库连接失败，会长时间停在这行代码，直到提示错误。
End Sub
Private Sub Timer1_Timer()
 If XPProgressBar1.Value = 100 Then
  XPProgressBar1.Value = 0
 Else
  XPProgressBar1.Value = XPProgressBar1.Value + 10
 End If
End Sub求助高手们有何高级的办法！不胜感激啊!