EXCEL中使用VBA ADO模型连接ACCESS2010

在EXCEL中编写以下的VBA代码，可以连接至ACCESS2010(其它版本的修改连接字符串中的版本)，并读取数据库中的记录至指定的单元格中。

Private Sub cbtn_toc_Click()
    Dim con As New ADODB.Connection
    Dim rec As New ADODB.Recordset
    con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0"
    con.Open "Data Source=E:\O0PROP\归档.accdb
    strsql = "select * from 项目文档"
    rec.Open strsql, con
    i=2
    While Not rec.EOF
        Sheet2.Range("B" & i) = rec.Fields("编号")
        Sheet2.Range("D" & i) = rec.Fields("名称")
        Sheet2.Range("c" & i) = rec.Fields("责任人")
        Sheet2.Range("E" & i) = rec.Fields("文档时间")
        Sheet2.Range("F" & i) = rec.Fields("备注")
        i=i+1
        rec.MoveNext
    Wend
    rec.Close
    con.Close
    Set rec = Nothing
    Set con = Nothing
End Sub