请问如何具体捕捉远程连接SQL 2000的错误。现在出问题了

On Error Resume Next
        strConnect = "Persist Security Info=True"
        strConnect = strConnect & ";Data Source=" & j.JieMi(strHost)
        strConnect = strConnect & ";User ID=" & j.JieMi(strDbUser)
        strConnect = strConnect & ";Password=" & j.JieMi(strDbPass)
        strConnect = strConnect & ";Initial Catalog=Psyp"
        With Deyp.cnYp
            If .State = adStateOpen Then .Close
            .Provider = "SQLOLEDB.1;Network=DBMSSOCN"
            .ConnectionString = strConnect
            .ConnectionTimeout = 30
            .Open
        End With
        If Err <> 0 Then
            FrmUnLink.Show vbModal
            Err.Clear
            end
        Else
        End If
    On Error GoTo 0
这是连接代码
是通过把主机IP.UID.PWD写在外部配置文件里面的.当网络断开或者以为其他原因无法连接服务器时.返回错误.请问该如何捕捉.
现在的判断方法是err<>0则判断连接失败。弹出连接失败窗体出来。可是明明连接成功了还是弹出连接失败窗体出来呢。如果屏蔽掉FrmUnLink.Show vbModal这句又能正常连接.