java recordset 列名,如何在VBA中获取列名？

I have created a module where I am reading the data from SQL DB using a stored procedure and I am getting all the required data, but my requirement is that I also needs all the column name/headers too. And I can't hardcode the name because I am converting the data rows into columns in stored procedure.

Here is the code I have written:

ConnStr = "PROVIDER=SQLOLEDB.1;"

ConnStr = ConnStr & "DATA SOURCE=" & dataSrc & "; INITIAL CATALOG=" & iCatalog & "; "

ConnStr = ConnStr & "User ID = " & dbUserId & "; Password = " & dbPassword

On Error GoTo ErrHandler

DBConn.Open ConnStr

' Create a recordset object.

Dim rsCounter As ADODB.Recordset

Set rsCounter = New ADODB.Recordset

Dim startDate As String, endDate As String, query As String

query = "Exec ReadCntrs 0, '12/01/2011', '12/30/2011'"

With rsCounter

' Assign the Connection object.

.ActiveConnection = DBConn

.Open query

' Copy the records into cell A1 on Sheet1.

Sheet1.Range("A1").CopyFromRecordset rsCounter

' Tidy up

.Close

End With

DBConn.Close

Set rsCounter = Nothing

Set DBConn = Nothing

ExitHere:

On Error Resume Next

DBConn.Close: Set DBConn = Nothing

Err.Clear

Exit Sub

ErrHandler:

MsgBox Err.Number & Err.Description, vbExclamation

Resume ExitHere

End Sub

解决方案

With rsCounter

' Assign the Connection object.

.ActiveConnection = DBConn

.Open query

' Write the column names into cell A1 on Sheet1.

Dim counter As Long

For counter = 0 To rsCounter.Fields.Count - 1

Sheet1.Range("A1").Offset(, counter).Value = rsCounter.Fields(counter).Name

Next

' Copy the records into cell A2 on Sheet1.

Sheet1.Range("A2").CopyFromRecordset rsCounter

' Tidy up

.Close

End With