Visual Basic

dgvList.AutoGenerateColumns = True
dgvList.DataBindings.DefaultDataSourceUpdateMode = DataSourceUpdateMode.OnValidation

Private Sub ThreadFunction()

    Try
        SoundConfigFiles = New List(Of SoundConfigFile)
        Dim dirs As String() = Directory.GetFiles(My.Settings.FSACDir, "sound.cfg", SearchOption.AllDirectories)
        Dim max As Integer = dirs.Count()
        Dim done As Integer = 0
        Dim percent As Integer = 0
        Dim msg As String = String.Empty

        For Each configfile As String In dirs
            SoundConfigFiles.Add(New SoundConfigFile(Me, configfile))
            done += 1
            percent = CInt(done / max * 100)
            msg = String.Format("{0} finished ({1}%)", configfile, percent)
            'update the UI thread
            UpdateForm(configfile, percent, msg)
        Next
    Catch ex As Exception
    End Try
End Sub 'ThreadFunction

Public Sub UpdateForm(ByVal myItem As String, ByVal percent As Integer, ByVal msg As String)

    If Me.InvokeRequired Then
        Dim d As UpdateDelegate = AddressOf UpdateForm
        Me.Invoke(d, {myItem, percent, msg})
    Else
        Me.dgvList.DataSource = SoundConfigFiles
        Me.dgvList.Refresh()
        Me.ProgressBar1.Value = percent
        Me.myLabel.Text = msg
        Me.lblFinalMessage.Text = String.Format("{0} instances still open.", _
                                       SoundConfigFile.instances)

    End If
End Sub

Sub OnComplete(ByVal Control As Object, ByVal FeatureSet As DPFP.FeatureSet, ByRef EventHandlerStatus As DPFP.Gui.EventHandlerStatus) Handles VerificationControl.OnComplete

        Dim con As New MySqlConnection("Server = localhost; Username= root; Password =; Database = fesdata")
        Dim cmd As New MySqlCommand("SELECT * FROM empdata", con)
        con.Open()
        Dim fpreader As MySqlDataReader = cmd.ExecuteReader


        Dim byteTemplate As Byte()
        Dim memStreamTemplate As MemoryStream

        Dim ver As New DPFP.Verification.Verification()
        Dim res As New DPFP.Verification.Verification.Result()

        If fpreader.HasRows Then
            While fpreader.Read

                byteTemplate = fpreader.Item("Fingerprint")
                memStreamTemplate = New MemoryStream(byteTemplate)
                Dim templa8 As DPFP.Template = New DPFP.Template()
                templa8.DeSerialize(memStreamTemplate)

                If Not FeatureSet Is Nothing Then

                    ver.Verify(FeatureSet, templa8, res)
                    If res.Verified Then
                        Call SEARCH_EMPLOYEE()
                    End If
                End If
            End While
        Else
            MsgBox("Unknown Employee!")
        End If
        fpreader.Close()


    End Sub