怎么判断当前数据库（ＳＱＬ）是否连接啊
　例：
　if 连接
msgbox"正常连接"
else
msgbox"连接失败"
goto　重新连接的地方


　请高手赐教，给出代码

利用state这个属性可判断

PS：LZ你的头像可不可以换一个，大家晚上会做恶梦的！~~~~

不会吧  你会啊   把代码说下啊  新手啊

随手写的：

dim conn as adodb.connection
conn.open "CONNECTIONSTRING" '这里的连接字符串根据你要的写
if not conn.state=0 then
'已连接
else
'出错
end if

大致就这样咯~！！！！！！！

恩谢谢

if conn.state=adstateopen then
msgbox "ok"
endif

Public gdbConn As New ADODB.Connection
Sub Main()
Dim DateSOurce As String '数据源
On Error GoTo err_Handler
'确定该程序没有被启动过
If App.PrevInstance Then
MsgBox "您已经启动过了本程序!", , "程序"
End
End If
DateSOurce = App.Path & "\DB\Transportation.mdb"
'连接数据库
gdbConn.Provider = "Microsoft.Jet.OLEDB.4.0"
gdbConn.Open DateSOurce
frmLogin.Show
Exit Sub
err_Handler:
MsgBox "数据库连接错误，请检查网络是否连通", vbOKOnly, "程序"
End
End Sub
我一般都这么写

if LZ not say thans then I say

恕我无知，什么是thans？？？

the short of thanks