ADODB.Recordset Nesnesinden Listbox’a Veri Doldurma

Private Sub UserForm_Activate()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cnnstr As String

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

cnn.Open cnnstr
rs.Open "select [Ad] from OdemeSeklis", cnn

Do While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
Me.ListBox1.AddItem rs.Fields(i).Value
Next
rs.MoveNext
Loop
rs.Close

cnn.close

End Sub