codice:
Dim ObjReader As SqlDataReader = MyCommand.ExecuteReader
If ObjReader.Read then
  response.write("Non ci sono record")
Else 
  D_Ricerca.DataSource = ObjReader
  D_Ricerca.DataBind()
End If

ObjReader.Close()