RecordCount siempre vale -1

Seguro que muchos programadores de vb6 esto lo darán por obvio, pero si estas en mi situación de toma un código y haz que funcione bien en SqlSever tal vez no sea tan evidente.
Durante la migración

Dim total as Integer
sSql = "SELECT distinct nif FROM miTabla "
miRs.Open sSql, gConSQL
total = miRs.RecordCount

Con la conexión vieja funcionaba pero con la conexión a sqlserver no ¿? el resultado era siempre el mismo -1 y tenía datos!!!
Solución

Dim  total as Integer 
sSql = "SELECT distinct nif FROM  miTabla "
miRs.Open sSql, gConSQL, , adOpenStatic
total = miRs.RecordCount

http://www.lawebdelprogramador.com/foros/Visual_Basic_ADO/1064827-RecordCount_SQL...ante_query__.html