RecordCount

[ema21del9]

Jeje si perdon:

Código:

Set ventas = New ADODB.Recordset
ventas.Open "SELECT * FROM ventas", BD, adOpenStatic, adLockOptimistic

While Not ventas.EOF

arreglo = Split(ventas.Fields(2), "|")
ReDim matriz_productos(1 To ACA VA LA CANTIDAD DE REGISTROS, 0 To UBound(arreglo) + 1, 0 To 2)

Set lista_ventas = ListView1.ListItems.Add(, , ventas.Fields(0))
lista_ventas.SubItems(1) = ventas.Fields(1)
lista_ventas.SubItems(2) = ventas.Fields(3)
lista_ventas.SubItems(3) = "$ " & FormatNumber(ventas.Fields(4))

ventas.MoveNext
Wend