Visual Basic.NET - AYUDA PARA UN CODIGO

SALUDOS,

ESTAMOS TRABAJANDO UNA APLICACION QUE ALMACENA LA HUELLA DIGITAL DE UNA PERSONA CAPTUARANDOLA A TRAVES DE UN LECTOR DE HUELLA U ARE U 4000 DE LA SERIE FINGER PRINTER EN UNA BASE DE DATOS DE SQL SERVER 2000, MEDIANTE UN CAMPO EN OCTAL QUE GENERA EL SDK ANTES MENCIONADO DE UNA LONGITUD DE 3010 CARACTERES, MOTIVO POR EL CUAL UTILIZAMOS UNA COLUMNA DE TIPO NVARCHAR. LA INTERFAZ UTILIZADA ENTRE LA PLATAFORMA .NET Y EL LECTOR ES EL SDK PLATINUM.
TENEMOS UN PEQUEÑO PROBLEMA, ES QUE AL MOMENTO DE CONSULTAR POR VISUAL BASIC.NET ESA HUELLA ALMACENADA NO TIENE CORRESPONDENCIA CON LA HUELLA LEIDA, AL PARECER NO COINCIDEN LOS TIPOS DE DATOS, YA QUE AL REALIZARLE UNA EJECUCION CONTROLADA AL CODIGO MEDIANTE PUNTOS DE INTERRUPCION NOS DAMOS CUENTA QUE LAS VARIABLES SI TIENEN ALMACENADA LA INFORMACION, SIN EMBARGO, EL BLOQUE IF CORRESPONDIENTE SIEMPRE REALIZA LA SALIDA POR EL LADO NEGATIVO COMO SI LA HUELLA CAPTUARADA NO EXISTIERA EN LA BASE DE DATOS AUN SI ESTA POSITIVAMENTE EXISTE EN LA BASE DE DATOS.

AQUI LES MOSTRAMOS EL CODIGO EN VISUAL BASIC.NET QUE HACE LA SENTENCIA INSERT EN LA BASE DE DATOS DE LA RESPECTIVA HUELLA DIGITAL:

strSQL = "INSERT APRENDICES VALUES (" & _
validarnulo(ident) & "," & _
validarnulo(txtnom.Text.ToUpper) & "," & _
validarnulo(txtprimera.Text.ToUpper) & "," & _
validarnulo(txtsegundoa.Text.ToUpper) & "," & _
validarnulo(ident) & "," & _
CType(cmbtipoid.Items(cmbtipoid.SelectedIndex), ListItem).ID & "," & _
CType(cmbtipoid.Items(cmbtipoid.SelectedIndex), ListItem).ID & "," & _
validarnulo(vHuella.cadena) & ")"
cnSQL = New SqlConnection(ConnectionString)
cnSQL.Open()

cmSQL = New SqlCommand(strSQL, cnSQL)
cmSQL.ExecuteNonQuery()

cnSQL.Close()
cmSQL.Dispose()
cnSQL.Dispose()

Catch Exp As SqlException
MsgBox(Exp.Message, MsgBoxStyle.Critical, "SQL Error")
Catch Exp As Exception
MsgBox(Exp.Message, MsgBoxStyle.Critical, "General Error")
End Try
End Sub


EL SIGUIENTE ES EL CODIGO QUE COMPARA LA HUELLA CAPTURADA CON LA QUE SE ALMACENO EN LA BASE DE DATOS:

Private Sub btnaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptar.Click
sensor.Inicializar("c:\licencia.slm")
buscar()
sensor.ActivarSensor()
MsgBox("coloque el dado")
End Sub

If txtident.Text = "" Then
MsgBox("Este campo no puede estar vacio," & Chr(13) & "Favor, digite identificacion", MsgBoxStyle.Information, "ATENCION")
txtident.Focus()
Else
Try

strSQL = "SELECT NOMBRE, HUELLA FROM APRENDICES WHERE ID_APRENDIZ =" & txtident.Text
cnSQL = New SqlConnection(ConnectionString)
cnSQL.Open()
cmSQL = New SqlCommand(strSQL, cnSQL)
drSQL = cmSQL.ExecuteReader()

If drSQL.Read Then
If e.huella.cadena = drSQL.Item("HUELLA") Then '.ToString()
MsgBox("bien")
Else
MsgBox("mal")
End If
's = drSQL.Item("NOMBRE")
Else
MsgBox("La identificacion y/o clave digitada no fue encontrada" & Chr(13) & "Verifique que se halla ingresado correctamente", MsgBoxStyle.Information, "ATENCION")
txtident.Text = ""
txtident.Focus()
End If
drSQL.Close()
cnSQL.Close()
cnSQL.Dispose()

Catch F As SqlException
MsgBox(F.Message, MsgBoxStyle.Critical, "SQL Error")

Catch F As Exception
MsgBox(F.Message, MsgBoxStyle.Critical, "General Error")
End Try
End If
'vhuella = New BIOMETRIA.HuellaDigital
' MsgBox(s)
' vhuella.cadena = R
'vhuella.cadena = R
Dim str As String

Res = e.huella.CompararHuella(R.cadena)
If Res = True Then

salidas()
txtident.Text = ""
txtident.Focus()
Else
MsgBox("Acceso denegado", MsgBoxStyle.Critical, "Atencion")

Y ESTE ES EL CODIGO QUE CAPTURA LA HUELLA AL MOMENTO QUE ESTA SE COLOCA EN EL SENSOR:

Private Sub sensor_HuellaCapturada(ByVal sender As Object, ByVal e As AxBIOMETRIA.__BIOSENSOR_HuellaCapturadaEvent) Handles sensor.HuellaCapturada
Dim Res As Boolean
'Res = vHuella.CompararHuella(e.huella.Plantilla)
Res = e.huella.CompararHuella(vHuella.Plantilla)
If Res Then MessageBox.Show("PUEDE SEGUIR A CLASES") Else MessageBox.Show("Acceso denegado")
End Sub

SOMOS ESTUDIANTES DE ANALISIS Y PROGRAMACION DE COMPUTADORES DEL SENA REGIONAL MAGDALENA EN SANTA MARTA - COLOMBIA.... NECESITAMOS CON URGENCIA QUE ALGUIEN NOS AYUDE A RESOLVER ESTE PROBLEMA.
ESPERAMOS SU PRONTA RESPUESTA.
GRACIAS!