求vb代码

Question

有个小程序，用 vb写的，通过 ADO控件ADODC连接数据库。后台数据库是SQL 2000.
求一代码，在程序运行主界面时，判断是否连接上SQL2000服务器，并跳出提示窗口

Answer 1

Private Sub Form_Load()
ON ERROR GOTO errMsg
Dim   adoConn   As   ADODB.Connection   
dim   strConn   as   String 
Set   adoConn   =   New   ADODB.Connection 
adoConn.CursorLocation   =   adUseClient 
strConn= "Provider=SQLOLEDB.1;Data   Source=192.168.0.1;Initial   Catalog=TEST;User   ID=xxxxx;Password=yyyyy"
adoConn.Open   strConn   
eixt sub
errMsg:
  msgbox "sql连接失败"
end sub其中Data   Source表示的是当前所连接的SQL服务器名称 
Initial   Catalog表示的当前所连接数据的名称 
User   ID登录用户名
Password密码