Con.Open()
 
        da = New OleDbDataAdapter("Select * FROM DB WHERE Feld1 like'" & _
          TextBox1.Text & "%'", Con)
        da.Fill(ds, "DB ")
        table = ds.Tables("DB ")
        DataGridView1.DataSource = table
 
 
        Con.Close()