```
If txtSearchString.Text.Trim <> "" Then
        Dim searchString As String = txtSearchString.Text.Trim
        Dim results As EnumerableRowCollection(Of DataRow) = From PO In FilterPurchaseOrders().AsEnumerable() _
                      Where PO("Title") Like searchString Or PO("PONumber") Like searchString _
                      Or PO("Remarks") Like searchString Or PO("Note") Like searchString _
                      Or PO("Vendor") Like searchString Or PO("ShipTo") Like searchString _
                      Or PO("Lookup") Like searchString Or PO("BillTo") Like searchString _
                      Or PO("Status") Like searchString Or PO("Choice") Like searchString _
                        Select PO

        rgPurchaseOrders.DataSource = results
    End If

```

I am getting this error: error BC30205: End of statement expected.

FilterPurchaseOrders() function returns a datatable.

Whats wrong with the above code?