SoloCodigo

Hola estoy haciendo un sistema Checador de entradas y Salidas de personal y estoy atorado en la forma de extraer el campo Image donde se encuentra Guardada la Huella Digital...
Para Guardar lo hago de la Sig. manera:

Private Sub Guardar_Click()

On Error Resume Next
        Dim blob() As Byte
        Dim bvariant As Variant
        If regtemplate Is Nothing Then
          Exit Sub
        End If
        regtemplate.Export bvariant
        blob = bvariant
         sql = "INSERT INTO HuellaDigi(Huella,Nomina,Seguro)" _
              & "values ( 'blob.tpt'," + Nomina.Text + ",'" + Seguro.Text + "')"
              Cmd.CommandText = sql
              Set Rec = Cmd.Execute
End Sub

Para Extraerla lo estoy Intentando pero no jala...
lo hago asi...  

Private Sub Cargar_Click()
On Error GoTo noload
Dim blob() As Byte
Dim a As String
Dim res As AIErrors
  Set regtemplate = New FPTemplate
sql = "SELECT * FROM HuellaDigi WHERE Nomina = '" + Nomina.Text + "'"
            Cmd.CommandText = sql
            Set Rec = Cmd.Execute
           If Rec.RecordCount > 0 Then
          blob = (RTrim(Rec!Huella)) ' aqui la quiero cargar
            End If
 res = regtemplate.Import(blob) ' Aqui Importa
If res = Er_OK Then
                lblEvents.Caption = "Importacion de la Plantilla"
                lblTemplateID.Caption = regtemplate.InstanceID
        Else
                lblRegTemplID.Caption = "Import failed"
        End If
        Exit Sub
noload:


Si alguien tiene algun Consego o Sugerencia se lo agradeceria...

End Sub