Private Sub btnGetCustInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetCustInfo.Click
Dim dt As New DataTable("Customers")
dt.Columns.Add("location", System.Type.GetType("System.String"))
dt.Columns.Add("country", System.Type.GetType("System.String"))
dt.Columns.Add("lasttime", System.Type.GetType("System.String"))
Dim oReader As New StreamReader("C:\bin\LastImport.CSV")
Dim oCust As String
Dim Delim As String = ","
Dim oData() As String
Dim Index As Int32
Dim drItem As DataRow
oCust = oReader.ReadLine
Do
oData = oCust.Split(Delim.ToCharArray)
drItem = dt.NewRow
For Index = oData.GetLowerBound(0) To oData.GetUpperBound(0)
drItem(Index) = oData(Index).ToString
Next
dt.Rows.Add(drItem)
drItem = Nothing
oCust = oReader.ReadLine
Loop Until oCust Is Nothing
Dim dv As New DataView(dt)
dv.RowFilter = "location = '510'"
Me.DataGrid1.DataSource = dv
End Sub