连接SQL不成功时怎样才能不弹出SQL的提示

作者:admin 日期:2008-05-08

字体大小: 小中大

private sub command1_click()
on error goto err_proc
   Dim ado As New ADODB.Connection
   cn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=aa;Initial Catalog=bbb;Data Source=(local)"
   ado.Open cn
   If ado.State = adStateOpen Then
       MsgBox "连接成功", "提示："
   end if
   exit sub
err_proc:
   MsgBox "连接失败", "提示："
End sub

-----------------------------------
我建议，在错误处理里要带上连接失败的错误号。更准确一些