Public Cn As New ADODB.Connection


Private Sub Form_Load()
 
    Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Extended properties=Access 14.0;Data Source=" & App.Path & "\Database3.accdb"
   
   
    Cn.Open
End Sub
我写了个VB操作ACCESS的小程序，可是运行出错。
请高手指教，谢谢！

Private Sub Form_Load()

    Cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\Database3.accdb"

    Cn.Open
End Sub
我把代码改成这样，没错了，可是数据库打不开。

什么意思数据库打不开？截图有么

是这样的。请多指教！

1、你没有显示数据库中的数据，怎么就知道数据库没打开？
2、你没有查询数据（conn.Execute "select * from table1")，怎么可能有数据出来？

谢谢！Database3.accdb没有出来啊

Database3.accdb没有出来啊？？？？？？？？？？？？？？？？？？？？？
ado没有任何方法把数据库显示出来，他不提供这个功能，作为使用者也完全不需要这个功能，ado所说的打开数据库，就是连接数据库，要想知道是否连接成功，ado提供了方法，并且很简单，就是检查Cn.State的值

谢谢！