vb与SQL数据库连接的一点问题

Question

我用下面的VB语句连接服务器上SQL2000的数据库,平时使用没问题,但是如果服务器没有开或连接不上时就会出错然后整个程序关闭.我想请教各位高手怎么写这段代码才可以在出错时向用户弹出一个"连接服务器失败"的提示框,然后程序去做别的事,而不是关闭整个程序.
CnnStr = " Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_APGRCL;Data Source=  ServerIP"
adoCon.Open (CnnStr)

Answer 1

private sub conntion()
on error goto errhandle
    screen.mousepointer=vbhourglass
    CnnStr = " Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial    Catalog=db_APGRCL;Data Source=  ServerIP" 
    adoCon.Open (CnnStr) 
    screen.mousepointer=vbdefault
    exit sub
'错误处理
ErrHandle:
    msgbox "连接失败，错误原因为：" & err.description,vbexclamation,"提示"
    screen.mousepointer=vbdefault
    exit sub
end sub