ERROR : identifier expected

ivate Sub Btn_Show_Click(sender As Object, e As RoutedEventArgs)
        Dim conString As String = "Data Source=SHAHRUKH-PC\SQLEXPRESS;Initial Catalog=SOUL20DB;User ID=sa;Password=sa@1234"
        Dim conn As SqlConnection = New SqlConnection(conString)
        Dim adap As New SqlDataAdapter
        Dim sqlCmd As SqlCommand
        Dim sqlResult As Object
        Dim BibliDS As New DataSet
        Dim TitleDS As New DataSet

        Dim Table As New DataTable
        Dim directory As Directory = FSDirectory.GetDirectory("C:\Users\Shahrukh\Documents\Visual Studio 2012\Projects\Simple search1\Simple search1\New folder")
        Dim analyzer As Lucene.Net.Analysis.Analyzer = New SimpleAnalyzer()
        Dim parser = New QueryParser("Title", analyzer)

        parser.SetDefaultOperator(QueryParser.Operator.AND)
        Dim query As Lucene.Net.Search.Query = parser.Parse("Title:" & txtSearch.Text)
        Dim searcher = New IndexSearcher(directory)

        Dim hits As Hits = searcher.Search(query)
        Dim results As Integer = hits.Length
        Console.WriteLine("Found {0} results", results)

        For i As Integer = 0 To results - 1

            Dim doc As Document = hits.Doc(i)
            Dim score = hits.Score(i)
            adap.Fill(TitleDS)
            dGridResults.ItemsSource = TitleDS.tables[0];HERE ERROR COMES