简单问题，在线等，马上结贴

Question

我在模版里做了两个过程用来打开数据库，然后在窗体load里用call connopen()来打开，可是怎么错误了，是哪里写错了呢？应该怎么做？Public Sub connopen()
Set conn = New ADODB.Connection
Dim connstr As String
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;" & "Persist Security Info=False;"
conn.Open connstr
End SubPublic Sub connend()
conn.Close
Set conn = Nothing
End Sub

Answer 1

connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data\data.mdb"

Answer 2

工程->引用->将Microsoft activeX data objects 2.0 library 选上

Answer 3

对conn进行操组前，要检查一下它的状态比较好。