Matching Live Finger Print from DataBase

See more:

VB6

Hello Friends

I am trying to featch the data from Databse SqlServer using Finger scanner
but data is not matching or finger print is not matching .
I am trying to match finger but finger print is not matching.
Here my code so please help me.

Private Sub VerCtrl_OnVerify(ByVal LiveFinger As Boolean)
'On Error Resume Next
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim finData As New FingerData
Dim fda As New FingerData
cn.Open "Provider=MSDASQL;DSN=PMSClient"
rs.Open "Fingers", cn, adOpenStatic, adLockReadOnly, adCmdTable
If rs.RecordCount <= 0 Then
 Exit Sub
End If
rs.MoveFirst
Dim arr() As Byte
Do While Not rs.EOF
    ReDim arr(CLng(rs("FSize")) - 1) As Byte
    'retreiving the finger print from database one by one and matching with the currently scanned live finger
    arr = rs("Finger").GetChunk(CLng(rs("FSize")) - 1)
    finData.SetData arr
   
    ''finData.SetData (arr)
    'loading the finger print to the fx2000 device for verification
    VerCtrl.LoadFingerToMatch finData
    If VerCtrl.Match > 0.5 Then
        ' showing the message with whom live finger print matches
        gPIDNo = rs("PID_No")
        Exit Do
    Else
        gPIDNo = 0
    End If
    rs.MoveNext
Loop
Set finData = Nothing
rs.Close
cn.Close
Unload Me
End Sub

In this Code finData is matching a Finger print but finData is Image is false or or len is 0
and after
If VerCtrl.Match > 0.5 Then jump in gPIDNo = 0( in Else part )

so please Help me for this Solution
my mail ID: - [REMOVED]
mob: 9755377510
Thanks in Advance