在程序中联接到ODBC数据源时，怎样知道已经联上，或者未联上？

Question

你连接数据库看能不能连上阿

Answer 1

我想在登陆时，如果没有连上给出提示。

Answer 2

在程序运行之前先在控制面板中测试你的程序与数据库的连接！

Answer 3

Private Sub Form_Load()
On Error Goto ErrHandler:
  Dim Conn As New ADODB.Connection
  Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="+App.Path+"/Db/myForm.mdb"
  MsgBox Conn.State  '数据库连接状态
ErrHanler:
  If Err Then
    Msgbox Err.Description,VbOkOnly,"错误"
  End If
End Sub