Userform üzerindeki Listbox'a Veri Çekmek

[bluefalcon]

Arkadaşlar merhaba,

Userform üzerinde bir adet combobox ve bir adet de Listbox nesnem var. Listbox'a butona bastığımda kapalı dosyadan veriyi aşağıdaki kodla çekiyorum. Veriler hedef xlm uzantılı dosyanın ilgili sayfasından geliyor sorun yok ancak Listbox'un Columnheads özelliğini true yaptığımda başlıkları bir türlü Listbox'da gösteremedim. Nerede yanlış yapıyorum. Yol gösterir misiniz?

Private Sub CommandButton1_Click()
Dim Baglan As New ADODB.Connection
Dim Kayit As New ADODB.Recordset



Set Baglan = New ADODB.Connection

Baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & _
"\Ersin_GUNGOR\Fabrika_Mesai_ve_Servisler\Mesai Listeleri\Yeni Klasör\GUNCEL.xlsm;" & "Extended Properties=""Excel 12.0;HDR=Yes"""

Set Kayit = New ADODB.Recordset

Kayit.Open "SELECT * FROM [PERSONEL$]", Baglan, adOpenDynamic, adLockOptimistic

On Error Resume Next

If rs.RecordCount > 0 Then
Me.ListBox1.RowSource = ""
Me.ListBox1.Clear

With ListBox1
.ColumnCount = Kayit.Fields.Count
.ColumnWidths = "60;120"
.Column = Kayit.GetRows
.AddItem , 0
End With

End If

Kayit.Close
Baglan.Close
Set Kayit = Nothing
Set Baglan = Nothing

End Sub