Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles TextBox1.TextChanged
        Dim dv As New DataView(ds1.Tables(0))
        Try
            dv.Sort = "Kunde DESC"
            dv.RowFilter = "Kunde = '" & TextBox1.Text & "'"
        Catch ex As Exception
        End Try
        DataGrid1.DataSource = dv
        DataGrid1.Refresh()
 
 
 
 
 
    End Sub