ADODB.Recordset Nesnesinden Listbox’a Dizi Aracılığıyla Veri Doldurma (Çoklu Kolon)

Sub veridoldur()

Me.ListBox1.Clear

Dim cnn As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim arr() As Variant
Dim satir As Long
Dim j As Integer
Dim cnnstr As String

Set cnn = New ADODB.Connection
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
cnnstr = "Provider=SQLOLEDB;Data Source=........;Initial Catalog=......;User ID=......;Password=.....;"

cnn.Open cnnstr
rs2.Open "select count(ID) from İhracatFirmalar", cnn
satir = CInt(rs2.GetString)
rs2.Close
rs1.Open "select * from İhracatFirmalar", cnn

Me.ListBox1.ColumnCount = 9
ListBox1.ColumnWidths = "0;200;200;200;100;100;30;30;30"

ReDim arr(satir - 1, 8)

Do While Not rs1.EOF
For i = 0 To rs1.Fields.Count - 1
arr(j, i) = rs1.Fields(i).Value
Next
rs1.MoveNext
j = j + 1
Loop
rs1.Close

Me.ListBox1.List = arr

Me.TextBox1 = ""

End Sub