RecordCount

[pana99]

Proba asi por favor

Dim CantVentas as integer
Set Cventas = New ADODB.Recordset
Cventas.Open "SELECT count(1) as Cantidad FROM ventas", BD, adOpenStatic, adLockOptimistic

CantVentas = Cventas.Cantidad

set Cventas = nothing 'No me acuerdo si es asi como se cierra la conexion. Cerrala para no tener memoria ocupada

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 CantVentas, 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