Visual Basic - Claves de la bd duplicadas

Hola que tal? quiero validar para no insertar claves duplicadas y estoy usando este código pero no me sirve si alguien me puede ayudar
Dim inserta As String
Dim revisa As String
Dim base As New ADODB.Recordset
Set base = New ADODB.Recordset
inserta = "INSERT INTO proyecto VALUES (" & Form2.cod_proy.Text & ", '" & Form2.nomb_proy.Text & "', '" & dia & "/" & mes & "/" & ano & "', '" & Form2.ciudad_proy.Text & "', '" & Form2.estado_proy.Text & "' , '" & Form2.desc_proy.Text & "', '" & Form2.cliente.Text & "')"
revisa = "SELECT * from proyecto WHERE codigo = " & Form2.cod_proy.Text & ""
Call connection
base.Open revisa, Cn
If base.RecordCount <> 0 Then
MsgBox " Cambie el código del proyecto, ya este existe ", vbCritical, "Error de datos"
Else
Cn.Execute (inserta)
Unload Me
MsgBox " Los datos se cargaron correctamente ", vbExclamation, " Correctos "
Form1.Show
End If

Realiza una consulta de verificación antes de insetar, listo, nada más eso.

Pana como ves en el codigo

Pana como ves en el codigo que puse ya esta la consulta que verifica el SELECT por eso es que hago un recordcount para ver si ya esta este registro pero por lo visto no lo hace bien ese es el problema