[VB6]: Implementare conteggio dei record in un DataReport

[x69asterix]

ragazzi come posso eseguire in base a questo codice un conteggio dei record presenti?

Cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=db1.mdb"
Rs.Open "SELECT * FROM PianiQuery WHERE FisicaEntrata >= #" & Format$(DTPicker1.Value, "mm/dd/yyyy") & "# AND FisicaUscita<= #" & Format$(DTPicker2.Value, "mm/dd/yyyy") & "#", Cn, 0
 
Set DataReport1.DataSource = Rs
DataReport1.Orientation = rptOrientLandscape
'DataReport1.Sections("Section2").Controls("Label10").Caption = "Piani elaborati " & ???? 
DataReport1.Sections("Section4").Controls("Label9").Caption = "Report in Dettaglio dal " & DTPicker1.Value & " al " & DTPicker2.Value


With DataReport1.Sections("Section1")
.Controls("TextBox1").DataField = "ID"
.Controls("TextBox2").DataField = "Cartella"
.Controls("TextBox3").DataField = "FisicaEntrata"
.Controls("TextBox4").DataField = "FisicaUscita"
.Controls("TextBox5").DataField = "FisicaTempo"
.Controls("TextBox6").DataField = "RtConsegna"
.Controls("TextBox7").DataField = "DaFisicaARadio"
.Controls("TextBox8").DataField = "Anno"
End With

DataReport1.Refresh
DataReport1.Show

Rs.Close
Cn.Close
Set Rs = Nothing

[x69asterix]

il caso è disperato?