validar llave primaria en visualbasic con mysql

[pangallo]

hola geoavila,gracias por contestar antes que nada, me aparece el siguiente
error '-2147217900(80040e14)' como lo pongo
if err.number=-2147217900(80040e14) then
msgbox ("error al ingresar folio, folio ya existe")
end if

lo puse asi pero me marca : se esperaba then o goto
como lo pongo -
MUCHAS GRACIAS CUALQUIER AYUDA-o