Visual Basic

Dim query1 as IeQueryable(of myobj)= (From  t in context.myobjs Where vl1<5).Tolist

Dim query2= (From  t in context.myobjs.Asqueryable Where vl1<5).Tolist

Public Sub OnVerify(ByVal captureResult As CaptureResult)
        ' Check capture quality and throw an error if bad.
        If Not Me.CheckCaptureResult(captureResult) Then Return

        SendMessage(Action.SendMessage, "A finger was captured.")

        Dim resultConversion As DataResult(Of Fmd) = FeatureExtraction.CreateFmdFromFid(captureResult.Data, Formats.Fmd.ANSI)

        If resultConversion.ResultCode <> Constants.ResultCode.DP_SUCCESS Then
            Me.Reset = True
            Throw New Exception("" & resultConversion.ResultCode.ToString())
        End If

      
        firstFinger = resultConversion.Data
       

        'PULL FINGERPRINT RECORD FROM DATABASE
        Dim FMDDataset As New DataSet
        Dim DBconn As MySqlConnection = New MySqlConnection(connString)
        Dim sql As MySqlCommand = New MySqlCommand("SELECT * " & _
        " FROM tbl_fr ", DBconn)


        DBconn.Open()
        Dim DataAdapter As MySqlDataAdapter = New MySqlDataAdapter()
        DataAdapter.SelectCommand = sql
        FMDDataset.Clear()
        DataAdapter.Fill(FMDDataset, "tbl_fr")
        DBconn.Close()

      

        If FMDDataset.Tables("tbl_fr").Rows.Count > 0 Then
            Dim counter As Integer = 0

            Dim fp1, fp2 As String
            fp1 = Fmd.SerializeXml(resultConversion.Data)

               
                Dim byteS As Byte()
                'data from database
                byteS = FMDDataset.Tables("tbl_fr").Rows(0).Item("frp")


                'im having error on this line of code
                'DP_INVALID_PARAMETER:  Data at the root level is invalid. Line 1, position 1.
                MatchFinger = Fid.DeserializeXml(Convert.ToString(byteS))
               
                Dim resultConversionDATA As DataResult(Of Fmd) = FeatureExtraction.CreateFmdFromFid(MatchFinger, Formats.Fmd.ANSI)
                Dim idResult As DPUruNet.IdentifyResult = DPUruNet.Comparison.Identify(firstFinger, 0, "resultConversionDATA", 2147, 2)
                If (idResult.ResultCode = DPUruNet.Constants.ResultCode.DP_SUCCESS) Then
                    If (idResult.Indexes.Length >= 1) Then  'Found potential match, dont search second collection (speed optimized)
                        MsgBox("RECORD MATCH")
                    Else
                        MsgBox("RECORD MISMATCH")
                    End If
                End If

             

                counter = counter + 1
                Me.BindingContext(FMDDataset, "tbl_fr").Position += 1
            Loop While (counter <= FMDDataset.Tables("tbl_fr").Rows.Count)
            

       End If

    End Sub