how to do integer search in lucene index using vb.net

See more:

VB

SQL

Lucene.NET

I am using below code for search accession no in lucene index but its give me an empty result can you please help me to do integer search in lucene index

Private Sub btnShowResult_Click(sender As Object, e As RoutedEventArgs)
    Try
        Dim dt_Result As New DataTable
        Dim FinalTable As New DataTable
        Dim strTagSbFld As String
        strTagSbFld = GetTagSbFldSQL()
        Dim searchString As String = txtSearch.Text
        Dim query1 As String = (strTagSbFld)
        'MsgBox(query1)
        conn.Open()
        adap.SelectCommand = New SqlCommand(query1, conn)
        adap.Fill(dt_Result)
        Dim Field0, Field1, Field2, Field3, Field4, Field5 As String


        Field0 = dt_Result.Columns(0).Caption
        Field1 = dt_Result.Columns(1).Caption
        Field2 = dt_Result.Columns(2).Caption
        Field3 = dt_Result.Columns(3).Caption
        Field4 = dt_Result.Columns(4).Caption
        Field5 = dt_Result.Columns(5).Caption

        ' Specify the location where the index files are stored
        Dim indexFileLocation As String = "C:\Users\Shahrukh\Documents\Visual Studio 2012\Projects\Simple search1\Simple search1\New folder"
        Dim dir As Lucene.Net.Store.Directory = Lucene.Net.Store.FSDirectory.GetDirectory(indexFileLocation)

        ' specify the search fields, lucene search in multiple fields
        Dim searchfields As String() = New String() {Field0, Field1, Field2, Field3, Field4, Field5}
        Dim indexSearcher As New IndexSearcher(dir)

        ' Making a boolean query for searching and get the searched hits
        'Dim hits = indexSearcher.Search(QueryMaker(searchString, searchfields))
   ElseIf SearchCriteria = "AccessionNo" Then
                'MsgBox(strTagSbFld)
                Dim Searchresults As New List(Of SearchResultsAccessionNo)()
                Dim hits = indexSearcher.Search(QueryMaker(searchString, searchfields))
                For i As Integer = 0 To hits.Length() - 1
                    Dim result As New SearchResultsAccessionNo()
                    result.SrNo = i + 1
                    result.Title = hits.Doc(i).GetField(Field0).StringValue()
                    result.AccessionNo = hits.Doc(i).GetField(Field1).StringValue()
                    result.AccessionNo = hits.Doc(i).GetField(Field2).StringValue()
                    result.Location = hits.Doc(i).GetField(Field3).StringValue()
                    result.CallNo = hits.Doc(i).GetField(Field4).StringValue()
                    result.Status = hits.Doc(i).GetField(Field5).StringValue()
                    Searchresults.Add(result)
                Next
                indexSearcher.Close()
                'adap.Fill(Searchresults)
                dGridResults.ItemsSource = Searchresults