Private Sub SucheStarten(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        DataGridView1.DataSource = nothing
        DataSet1 = new DataSet()
        SpeichernToolStripButton.Enabled = False
        SpeichernToolStripMenuItem.Enabled = False
        Clickable = True
        Dim SqlString as String ="select * from stamm where Feld1 like ?Feld1"
        Dim da As New MySqlDataAdapter(SqlString , My.Settings.SqlConnString)
        da.SelectCommand.Parameters.AddWithValue("?Feld1", _
          "%"+TextBox1.Text+"%")
        Try
            DataAdapter1.Fill(DataSet1, "Select")
            DataGridView1.DataSource = DataSet1.Tables("Select")
            DataGridView1.AutoResizeColumns()
            Label2.Text = "Suche nach ''" + TextBox1.Text + "''"
        Catch SqlEX As MySqlException
            ToolStripStatusLabel.Text = SqlEX.Message
        End Try
    End Sub