零基础学习access（第一天）建立数据库连接

Sub 连接数据库()
'引用

'创建连接对象

Dim con As New ADODB.Connection
   
    
'连接数据库
With con
    .Provider = "microsoft.ace.oledb.12.0"
    .ConnectionString = ThisWorkbook.Path & "\新建 Microsoft Access 数据库.accdb "
    .Open

End With

MsgBox "打开成功！"

End Sub