Funcionamiento de Busqueda

[jsr_17_7]

Gente... k tal..??
tengo una duda... supuestamente para insertar, modificar o eliminar un registro en la BD se utiliza el executescaler... lo que yo quiero hacer es una busqueda pero a la hora de traerme los resultados quiero enviar un mensaje cuando no se encontraron coincidencias....

-------------------------- mi codigo ---------------- (cada vez que ejecuto el executescaler me envia -1 siempre en todos los caso, como hago para saber si trajo registros o no )

cn.Open()
Dim p As SqlParameter
Try
da_pil.SelectCommand = New SqlCommand
da_pil.SelectCommand.Connection() = cn
da_pil.SelectCommand.CommandText = "BUSCA_PILOTO"
da_pil.SelectCommand.CommandType = CommandType.StoredProcedure
p = New SqlParameter("@VPIL_NUM_DOC", SqlDbType.NVarChar, 20)
p.Direction = ParameterDirection.Input
p.Value = Me.Txtbusca_pil.Text.Trim
da_pil.SelectCommand.Parameters.Add(p)
ds_pil.Clear()
da_pil.Fill(ds_pil, "TPiloto")
Filas_Afectadas = da_pil.SelectCommand.ExecuteNonQuery()
Me.DgdPiloto.DataSource = ds_pil.Tables("TPiloto")
If Filas_Afectadas < 1 Then
MsgBox("No se encontraron coincidencias", MsgBoxStyle.Critical, "Busqueda")
carga_piloto()
Me.Txtbusca_pil.Clear()
Me.Txtbusca_pil.Focus()
End If
Catch ex As Exception
MessageBox.Show("ERROR EN SP_BUSCA_PILOTO " & ex.Message)
End Try
cn.Close()