Visual Basic - Cantidad registros en ADO

Como puede hacer para que una consulta me devuelva la cantidad de registros que afecto, le pongo variable en la consulta y devuelve -1, o con el recorcount y me devuelve 1

No tienes que pasar por una consulta (Asumo que así llamas cuando utilizas "SELECT").
Variable = NombreTabla.RecordCount
MsgBox "Cantidad registros " & Variable
Lo que te indica lo anterior es un dato de tipo boolean que indica si tiene o no Registros la tabla consultada.

Tendrias que definir el recordset como :
With objrst
.ActiveConnection = "TuConexion"
.Source = "Tu Sql"
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Open
text1.Text = .RecordCount
End With

Esto genera un recordset de lectura solamente, en caso de que tengas que realizar ABM sobre el recordset, otro metodo que puede funcionar es
una vez cargado el recorset ir al final con movelast y volver al comeinzo con movefirst (las pequeñas estupideces de VB)