请帮忙看下哪里出错了，谢谢！

周总

1.我的本意是在【学生管理】工作簿中的【学生】表格中，添加一行数据，但是运行提示：自动化错误，请帮忙指出哪里出错了，该怎么改？谢谢！
Sub 数据库()
Dim con As New ADODB.Connection
Dim sql As String

Rem 连接excel工作簿
With con
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = "extended properties=excel 12.0;data source=" & ThisWorkbook.Path & "\学生管理.xlsx"
.Open
End With

Rem 增加数据
sql = "insert into 学生 (姓名,性别,班级) values('秀秀','女','2班')"
con.Execute (sql)

con.Close: Set con = Nothing
End Sub

qimixing

初步感觉是数据库连接Provider出错，你可以测试如下方法：
（1）方法一：将 学生管理.xlsx另存为 xls格式
ConnectionString = "extended properties=excel 12.0;data source=" & ThisWorkbook.Path & "\学生管理.xls"

（2）方法二，下载微软针对Excel2007极其以后Provider
http://www.microsoft.com/zh-cn/download/details.aspx?id=13255

qimixing

将 学生管理.xlsx另存为 xls格式

qimixing

使用jet引擎

Provider=Microsoft.Jet.OleDb.4.0;data source=" + filePath + ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'";
//Excel 2003文件