ayuda con vsflexarray y listbox

[Daviel]

El anterior código es para el ListBox, este es para el vsFlexArray, es un ejemplo para una tabla llamada "Clientes"
Sub CargarClientes(ByVal vsFxAy As AxvsFlexLib.AxvsFlexArray)
BDCn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & RutaMiBaseDatos & ";Persist Security Info=False;Jet OLEDB:DataBase Password=***")
Tabla = "Clientes"
BDRd.Open(Tabla, BDCn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly)
With vsFxAy
.Rows = 2
Do While Not BDRd.EOF
.set_TextMatrix(.Rows - 1, 1, BDRd.Fields("Clave").Value)
.set_TextMatrix(.Rows - 1, 2, BDRd.Fields("RFC").Value)
.set_TextMatrix(.Rows - 1, 3, BDRd.Fields("Nombre").Value)
.set_TextMatrix(.Rows - 1, 4, BDRd.Fields("Direccion").Value)
.set_TextMatrix(.Rows - 1, 5, BDRd.Fields("Ciudad").Value)
.set_TextMatrix(.Rows - 1, 6, BDRd.Fields("Correo").Value)
.set_TextMatrix(.Rows - 1, 7, BDRd.Fields("Telefono").Value)
.Rows = .Rows + 1
BDRd.MoveNext()
Loop
.Rows = .Rows - 1
.Focus()
BDRd.Close()
BDCn.Close()
End With
End Sub
espero te sirva compañero, mas vale tarde que nunca