per contare il modo migliore è fare un'altra query con SELECT COUNT(*) FROM ... [tutto il resto uguale], leggendo poi Rs(0)

se invece non vuoi fare un'altra query, prima fai tabres1.MoveLast e tabres1.MoveFirst, poi tabres1.RecordCount ti riporta il n. giusto; attento che se tabres1 contiene molti record potrebbe metterci un po'