Sub ado()

'前期绑定
Dim cn, rs As Object
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
'后期绑定
'Dim cn As adodb.Connection
'Dim rs As adodb.Recordset
'Set cn = New Connection
'Set rs = New Recordset

Dim cnstring, sql As String

'使用Jet引擎
cnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=K:\15-LRR\mytest.mdb"
'使用ACE引擎
'cnstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=K:\15-LRR\mytest.accdb"
'SQL Server引擎
'cnstring = "driver={SQL Server};server=my12700k;uid=sa;pwd=root;database=northwind;"

cn.connectionstring = cnstring
cn.Open
sql = "select * from records"
rs.Open sql, cn, 3, 1
Cells.Clear
'获取列名
For i = 0 To rs.Fields.Count - 1
Cells(1, i + 1) = rs(i).Name
Next
'复制内容
[a2].CopyFromRecordset rs
'清理内存
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

End Sub