Tienes una consulta Select, esa te debe devolver n numero de filas.
Utiliza un
SqlDataReader
Dim myReader As SqlDataReader
myReader = myCommand.ExecuteReader()
Traté de encontrar como contar las filas, pero al parecer no existe ningúna propiedad con el total de filas. La solución que daban era recorrer todo el DataReader y contar las filas una por una.
If myReader.HasRows Then
Dim rows AsInteger = 0
While myReader.Read()
rows += 1
EndWhile
MsgBox(rows)
EndIf
El Data Reader tiene también una propiedad llamada AffectedRows. Está devuelve el número de filas afectadas por un Insert, Update o Delete. No funciona para saber el número devuelto por un Select.