vB+SQL怎样做连接，并且如果连接不成功返回提示数据库连不成功

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "Provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\d.mdb" & ";Jet OLEDB:Database password=1234"
Set rst = New ADODB.Recordset
Set rst.ActiveConnection = conn
rst.CursorType = adOpenDynamic
rst.LockType = adLockPessimistic
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing

vb自带接口的阿 ado或者别的什么 链接不成功 这个 你需要编写一段函数