Dim RS As New ADODB.Recordset
Dim I, SutunSayisi As Integer

'---------------------------------------------------------------------------------------------------------
'Query açılıyor
'---------------------------------------------------------------------------------------------------------
RS.open "KK_HATA_RAPORU_GUNLUK_Crosstab", CurrentProject.Connection, adOpenKeyset, adLockReadOnly

'Sütun Sayısı
SutunSayisi = RS.Fields.Count

'Sütun Başlıkları
For I = 1 To SutunSayisi
MsgBox I & ": " & RS.Fields(I - 1).Name
Next I