Lo que puedes hacer es que si estas usando un dataReader hacer ésto:
Cita: Dim dr As SqlDataReader
...
..
If dr.Read Then
'Existen
Else
'no existen
End If
Ahora que si es un
dataset.. podría ser así:
Cita: If ds.Tables(0).Rows.Count < 1 Then
'No existen
Else
'Existen
End If
Salu2 y espero te haya dado una mejor idea.