Access tablosundaki sütun sayısını textboxa yazdırma

[walabi]

Merhaba,

Access üzerinde yeni çalışmaya başlayan biri olarak şunu sormak istiyorum.
Aşağıdaki kodlarda ;

TextBox6 = ks.RecordCount satırı ile uzerform üzerindeki textbox6 ya access tablosundaki satır sayısını yazdırabiliyorum. Bunun sütun ifadesi nasıl olur. Textbox7 de ilgili tablonun kaç sütundan oluştuğunu görmek istiyorum.

Textbox7 = ? ne olmalıdır.

Private Sub goster()
    Dim yol As String, dosya As String
    Dim baglan As New ADODB.Connection, ks As New ADODB.Recordset
    yol = ThisWorkbook.Path & "\"
    dosya = "veritabaniaccdb.accdb"
    Set baglan = New ADODB.Connection
    Set ks = New ADODB.Recordset
    baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & dosya & ";"
    ks.Open "select * from [Tablo2];", baglan, adOpenKeyset, adLockReadOnly
    ListView1.ListItems.Clear
    If ks.RecordCount > 0 Then
        ks.MoveFirst
        For i = 1 To ks.RecordCount
            ListView1.ListItems.Add , , ks(0).Value
            ListView1.ListItems(i).SubItems(1) = ks(1).Value
            ListView1.ListItems(i).SubItems(2) = ks(2).Value
            ListView1.ListItems(i).SubItems(3) = ks(3).Value
            ListView1.ListItems(i).SubItems(4) = ks(4).Value
            ListView1.ListItems(i).SubItems(5) = ks(5).Value
            ListView1.ListItems(i).SubItems(6) = ks(6).Value
            ListView1.ListItems(i).SubItems(7) = ks(7).Value
            ks.MoveNext
        Next i
    End If
    TextBox6 = ks.RecordCount
    ks.Close: baglan.Close
    Set ks = Nothing: Set baglan = Nothing
End Sub

 

[Haluk]

textbox7 = ks.fields.count

.

 

[walabi]

textbox7 = ks.fields.count

.

Teşekkürler Haluk bey,