se vc abre com um recordset instanciado e com o cursorlocation no cliente sabe qtos registros vem:
.
.
.
Set Rs = New ADODB.Recordset
Rs.CursorLocation = AdUseClient
Rs.Open "Select Data1, Data2, Data3, pag1, pag2, pag3 from tabela",SUACONEXAOADO
flgParcelas.rows = Rs.RecordCount
e com o Select count tb dá pra ser feito...
Rs.Open "Select count(*) from tabela",SUACONEXAOADO
tente ae qq coisa é só postar
t+