连接Access数据库

Sub 连接数据库()
 '第一步：我们要用ADO 引用AD工具
 '第二步：创建连接对象
 '2-1: 给连接对象取名字，声明对象
 'Dim conn As ADODB.Connection '声明对象变量
'2-2: 创建对象变量，并赋值
'Set conn = New ADODB.Connection '创建对象变量
'第三步： 建立数据库连接 连接的access数据库
'conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\学生管理.accdb"
'连接excel文件
'conn.Open "provider=microsoft.ace.oledb.12.0;extended properties-excel 12.0;data source=" & ThisWorkbook.Path & "\数据.xlsx"
Dim conn As New ADODB.Connection
With conn
　　.Provider = "microsoft.ace.oledb.12.0"
　　.ConnectionString = ThisWorkbook.Path & "\学生管理.accdb"
　　.Open
End With
MsgBox "连接成功"
conn.Close
End Sub