listelemede Error

[dreamymost]

Arkadaşlar
.List = Application.Transpose(Veri)

bu kodda hata alıyorum type mismatch hatası alıyorum . access veritabanından veri cekerken oluyo 2 alan adım vardı bunu 3'e cıkarınca bu hatayı vermeye basladı.

Private Sub ComboBox1_Change()
Set Baglanti = New ADODB.Connection

BagMetin = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " _
& Application.ThisWorkbook.Path & "\" & "VT1.mdb;Persist Security Info=False"

Sorgu = "SELECT * FROM " & ComboBox1.Value & " ORDER BY Kimlik"

With Baglanti
.CursorLocation = adUseClient
.Open BagMetin
Set KayitSeti = .Execute(Sorgu)
End With

With KayitSeti
Set .ActiveConnection = Nothing
Sutun = .Fields.Count
Veri = .GetRows
End With

Baglanti.Close

With UserForm1
With .ListBox1
.Clear
.ColumnCount = Sutun
.BoundColumn = Sutun
.List = Application.Transpose(Veri)
.ListIndex = -1
End With
End With

Set KayitSeti = Nothing
Set Baglanti = Nothing

End Sub