Prova questo codice

codice:
  Dim dt As New DataTable("Prova")
    Dim dw As New DataView(dt)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dw.RowFilter = "Colonna1='" & txt.Text & "'"
        DataGrid1.Refresh()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dt.Columns.Add("Colonna1")
        dt.Columns.Add("Colonna2")
        Dim i As Integer
        For i = 0 To 3
            Dim dr As DataRow = dt.NewRow()
            dr("Colonna1") = "Tizio_" & i
            dr("Colonna2") = "Caio_" & i
            dt.Rows.Add(dr)
        Next
        DataGrid1.DataSource = dw
    End Sub