Hola, soy nueva en esto de visual conectado a una BD en access y quiero validar la clave, ya que cuando le meto una clave que ya exise me truena el programa quisiera saber si alguien me puede ayudar con esto, la funcion de altas la tengo en un boton asi:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Me.Button1.Text = "altas" Then
Button1.Text = "Agregar"
MsgBox("Agrege los datos a los campos ")
panelestado.Text = "Agrege los datos correspondientes en cada campo"
Else
If txtclav.Text = "" Or txtnom.Text = "" Or txtgen.Text = "" Or txtcap.Text = "" Or rutas = "" Then
MsgBox("No ha llenado todos los campos")


Else

MsgBox(rutas)
strquery = "insert into tabla1 (clave,nombre,genero,capitulos,rutaI) values ('" + txtclav.Text + "','" + txtnom.Text + "','" + txtgen.Text + "','" + txtcap.Text + "','" + rutas + "')"
oleconn.Open()
Dim cmddatabase As OleDb.OleDbCommand = New OleDb.OleDbCommand(strquery, oleconn)
cmddatabase.ExecuteNonQuery()

oleconn.Close()
MsgBox("Serie dada de alta")
limpia()
Button1.Text = "altas"


End If

End If


End Sub

quiero que al intentar meter una clave existente el programa me diga que ya existe y no me deje dar de alta en este caso la serie de tv .
en la conexion uso esto:
Dim strquery As String
Dim canal As New OleDb.OleDbDataAdapter
Dim tabla As New DataSet
Dim oleconn As New OleDb.OleDbConnection
Dim clav As String

oleconn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" + _
Application.StartupPath + "\series.mdb"


si alguien me puede ayudar se los agradeceria mucho ^_^

Configuración: Windows XP
Internet Explorer 7.0