datagridview valor o no resultado

[guillebomtrasmiti]

Public Sub copiaintro()

Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet

Try
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
'comados.CommandText = "INSERT INTO IntroduccionDeVentasAhora SELECT reg,Cantidad,Pts,Fecha,NombreFormaPago,IvaVenta,Ba rra,NombTerminal From [Introducción De Ventas] WHERE Barra = @combo1 and NombTerminal = @combo2 and Fecha BETWEEN @FI AND @FF ORDER BY reg"
comados.CommandText = "INSERT INTO IntroduccionDeVentasAhora SELECT * FROM [Introducción De Ventas] WHERE Fecha BETWEEN @FI AND @FF Order by Fecha"
comados.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
comados.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))

'conectagrid()
conexion.Open()

Dim Lecto1 = comados.ExecuteNonQuery
a = PictureBox1
a.Visible = True
cargacomboMostradores()
cargacomboTerminales()
cargacombos()
a.Visible = False
MessageBox.Show("Se han copiado los datos seleccionados entre fechas " + Fecha1.Value.Date.ToString("dd/MM/yyyy") + " y " + Fecha2.Value.Date.ToString("dd/MM/yyyy"), "")
LbFechaPrimera.Visible = True
cargafechaslabelprimera()
LbFechasultima.Visible = True
cargafechaslabelultima()
Lhasta.Visible = True
conexion.Close()
Catch

End Try


mirar este código que os pongo carga la información según las fechas seleccionadas a la perfección, pero necesito una cosa, que si los datos ya existen en la tabla salte un aviso de que ya existen y no los cargue?¿?, me dais alguna idea??, gracias