不是，不过我用以下方式为什么打不开数据库?
dim conn as new adodb.connection
conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\数据库名.mdb"
conn.open

需要引入microsoft activex data objects 2.5 ....这个部件

谢谢！！

可以用UDL来连接
Public Function cotToSerer() As Boolean
On Error GoTo err
cnt.CursorLocation = adUseClient
cnt.Open "file name=" & App.Path & "\myudl.udl"
cotToSerer = True
Exit Function
err:
cotToSerer = False
MsgBox "错误代码:" & err.Number & vbCrLf & "错误描述：" & err.Description, vbCritical + vbOKOnly, "连接错误"
End Function

用记事本打开UDL文件
[oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mysql;Data Source=.
//mysql为数据库名称

哈哈哈哈.......谢谢........

Dim strconn As String
"Provider=Microsoft.Jet.OLEDB.3.51 ;Persist Security Info=False;Data Source="& APP.PATH &"\***.mdb"