关于SQL连接判断的问题

ty_1029

和很多ACCESS+SQLSERVER一样,我是通过ACCESS做窗体,数据全部存放和读取在SQLSERVER中,有一个登陆窗体,在登陆窗体前,加了一个背景窗体,我要通过一个判断,假定网络或数据库不存在,则没有连接到SQL中的话,打开窗体"frm_no"(当然,这里最好能通过MSGBOX 代替一下~~),如果连接成功,则打开登陆窗体"frm_login",
请问如何做判断啊~~(我试了几个办法都不可以~~)
SQL连接信息如下;

1. Dim cn As New ADODB.Connection
   
2. Dim rs As New ADODB.Recordset
   
3. Dim strCn As String, strSQL As String
   
4. strCn = "rovider=sqloledb;Server=10.0.0.5;Database=test;Uid=sa;wd=;"
   
5. cn.Open strCn

复制代码

各位帮忙啊~~~

asklove

连不上应该会产生错误吧，那能不能加一句：
on error goto exxxx:
**************
**************
exxxx:
没有连接到SQL中的话,打开窗体"frm_no