Visual Basic - Validar datos del procedimiento almacenado

Hola

Tengo un procedimiento almacenado en el server; este puede o no traer datos, como valido si trajo o no alguna fila con visual basic.

Estoy usando ADO.
Dim valor As String
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
...
If rs = cmd.Execute = 1 Then

While Not rs.EOF
List1.AddItem Trim$(rs!ad_apepat)
List1.AddItem Trim$(rs!ad_nombres)
rs.MoveNext
Wend
Else
MsgBox " Alto bo hay datos. ", vbCritical
End If
End Sub

GRACIAS

lo podrias checar directamente con el EOF que si es verdadero pues logicamente no treae nada, pero si quieres saber cuantos registros devolvio el store usa rs.recordcount y esto te dice cuantos renglones hay en el recordset