Access VBA 连接数据库

ACCESS 2010 在VBE环境

工具->引用中，选取Microsoft ActiveX Data Objects 6.1

实例代码：

Private Sub connectDB()
        Dim cn As ADODB.Connection
        Dim mydata As String

        mydata = CurrentDb.Name
        Set cn = New ADODB.Connection
        cn.Open "Provider=Microsoft.ACE.OLEDB.14.0;Data Source=" & mydata

        If conn.State = adStateOpen Then
        MsgBox "连接成功"
        conn.Close
        End If
        Set conn = Nothing
End Sub