VB连接sql server失败的原因

Question

VB6Dim conn As New ADODB.Connection   
    With conn   
    If .State = adStateOpen Then .Close   
        .ConnectionString = "driver=SQL Server;server=127.0.0.1;uid=sa;pwd=92456;database=cg"   
        .CommandTimeout = 120   
        .Open   
    End With   VB.netSqlConnection1.ConnectionString = "Data Source=127.0.0.1;Initial Catalog=tempdb;PassWord = ;User ID=sa"
SqlConnection1.Open()
我的问题是，如果边接数据库失败。当然原因可能很多种，比如IP设错了，用户不存在，密码错误，或都数据库根本就没有运行。我想知道连接失败的具体原因，而非仅仅提示连接失败。
我在网上看到的方法on error resume next   
    
  if err.Number = 0 then   
     msgbox   "成功！"   
  else   
     err.clear   
     msgbox   "失败"     '加上这里   
  end   if   但是我不知道返回错误的值在哪里查看，我在MSDN上没有找到，也可能我不会找。请问我说的这个问题怎么解决？

Answer 1

  if err.Number = 0 then   
     msgbox   "成功！"   
  else   
     err.clear   
     msgbox  err.Description
  end   if   

Answer 2

private sub command1_click()
on error goto errhandle
    Dim conn As New ADODB.Connection   
    With conn   
        If .State = adStateOpen Then .Close   
        .ConnectionString = "driver=SQL Server;server=127.0.0.1;uid=sa;pwd=92456;database=cg"   
        .CommandTimeout = 120   
        .Open   
    End With
    exit sub
'错误处理
ErrHandle:
    msgbox "连接失败，错误原因为：" & err.description,48,"提示"
    exit sub
end sub