Dim tbAdapter As New Odbc.OdbcDataAdapter("Select * from Kunden", mycon)
        Dim Table As New DataTable()
        Dim view1 As New BindingSource
        tbAdapter.Fill(Table)
 
        view1.DataSource = Table
        view1.Filter = "User='msteffen'"
        Grid.DataSource = view1