关于VBA连接ACEES查询的关题

Sub AC()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
Dim qx As String
qx = "金牛"

cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "\数据库.mdb"
sql = "select * from [宏站] where 区域='" & qx & "'"
rs.Open sql, cnn
[a1].CopyFromRecordset rs

End Sub
问题：

查寻出来的数据是没有列标的，我想要列标怎么搞呢？？？

看来你只能使用字段名称作为列标题了
Sub AC()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
Dim qx As String
qx = "金牛"
dim fld as adodb.field

cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "\数据库.mdb"
sql = "select * from [宏站] where 区域='" & qx & "'"
rs.Open sql, cnn

for each fld in rs.fields
'打印到什么a1的什么位置，你自己调整，注意，其后的[a1].CopyFromRecordset rs的[a1]也需要进行适当调整，别让其给覆盖了
a1.cell(i,j)=fld.name
next


[a1].CopyFromRecordset rs

End Sub