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
我把代码改成这样，没错了，可是数据库打不开。

是这样的。请多指教！

谢谢！Database3.accdb没有出来啊

谢谢！