Visual Basic para Aplicaciones - Recuperar recordset

Private Sub userForm_initialize()

'Declaración de variables.

    Dim cn As ADODB.Connection

    Dim rs As ADODB.Recordset

    Dim cs, sPath As String

    Dim sql, arr() As String

    Dim i, z As Single

    'Este es el path de la base de datos. En realidad puede estar en cualquier sitio.

    sPath = ThisWorkbook.Path & "\DB\db.accdb"

    cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";Persist Security Info=False;"

    Set cn = New ADODB.Connection

    cn.Open cs

    Set rs = New ADODB.Recordset

    With rs

        .CursorLocation = adUseClient

        .CursorType = adOpenDynamic

        .LockType = adLockOptimistic

    End With

    'Vamos a crear un array con los datos que obtengamos de la consulta.

    sql = "SELECT [Index],[Customer Name],[City] FROM clientes ORDER BY [Customer Name] ASC"

    rs.Open sql, cn

    'Contando el número de registros que contiene la consulta.

    While Not rs.EOF

        z = z + 1

        rs.MoveNext

    Wend

    ReDim arr(z, 2)

    For i = 1 To z

        If i = 1 Then

        rs.MoveFirst

        End If

        'Cargando los datos del recordset en el array.

        arr(i, 0) = rs![Index] 'Este es el dato que el combo me va a guardar.

        arr(i, 1) = rs![Customer Name] & " - " & rs![City] 'Esto es lo que se va a ver en el combo.

        rs.MoveNext

    Next i

    'Ahora definimos el combobox

    With Me.ComboBox1

        .ColumnCount = 2

        .BoundColumn = 1

        .ColumnWidths = "0;3,5cm"

        .List = arr

    End With

    'Despedida y cierre.

    rs.Close

    cn.Close

    Set rs = Nothing

    Set cn = Nothing

End Sub