把Recordset的值在EXCEL中打印，怎么连同表的列名一起打印出来啊

[m0_53216747]

Sub SQL_CONNECT()
Set CNN = CreateObject("ADODB.CONNECTION")
CNN.Open ""
Set RST = CreateObject("ADODB.RECORDSET")
SQLS = "SELECT * FROM BRM.BBEQPT"
RST.Open SQLS, CNN
Range("A2").CopyFromRecordset RST
RST.Close
End Sub
 

[m0_53216747]