If using ADO and VB6 test for recordset EOF and BOF if they are true then No records.

If using ADO.Net and VB.Net for Datareaders check the .HasRows property. For DataSets test if the dataset.Table(#).Rows.RowCount() > 0