Visual Basic - Problemas con mysql y Check

Saludos

estoy escribiendo un programa. Pero me encontré con un problema

El programa guarda la data en base de datos mysql y luego la lee para tras

El problema es con los cheks "las cajitas" como todos sabes el valor de los cheks es 1
para ture "ósea la rayita dentro de la caja" y 0 para false que no sale rayita en la caja.

Bueno esta información la guarda en el sql como 0 y 1 pero cuando ago el load para jalar Ho cargar dicha información en el programa este mi tira un error de type mismatch

aqui pongo parte del codigo

======== grabando informacion al la tabla mysql===========

.Fields("alerta") = Check4



=======Cuando Carga la informacion al programma Aqui mie tira el error======

Check4 = pRs.Fields("alerta") & ""

Le agradeceré toda la ayuda que me puedan dar muchas gracia anticipadas

Muchas Gracia por tu interes. pero consegui el problema.. fue error de mi parte Gracias

Es que siempre es error del programador, suerte.

PD: Puedes indicar el error?