Private Sub SucheStarten(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        DataSet1.Reset()
        DataSet1.Clear()
        DataSet1.Tables.Clear()
        DataGridView1.Columns.Clear()
        DataGridView1.ReadOnly = True
        SpeichernToolStripButton.Enabled = False
        SpeichernToolStripMenuItem.Enabled = False
        Clickable = True
        Dim MySqlCon1 As New MySqlConnection(My.Settings.SqlConnString)
        Dim DataAdapter1 As New MySqlDataAdapter _
        ("select * from stamm where 1 like '%" + TextBox1.Text + "%' or 1 like" & _
        "'%" + TextBox1.Text + "%' or 1 like '%" + TextBox1.Text + "%'", _
        MySqlCon1)
        Dim ComBuilder As MySqlCommandBuilder = New MySqlCommandBuilder( _
        DataAdapter1)
        Try
            DataAdapter1.Fill(DataSet1, "Select")
            DataGridView1.DataSource = DataSet1
            DataGridView1.DataMember = "Select"
            DataGridView1.AutoResizeColumns()
            Label2.Text = "Suche nach ''" + TextBox1.Text + "''"
            DataGridView1.Refresh()
        Catch SqlEX As MySqlException
            ToolStripStatusLabel.Text = SqlEX.Message
        Finally
            DataAdapter1.Dispose()
            MySqlCon1.Dispose()
            ComBuilder.Dispose()
        End Try
    End Sub

--
Wann und wo ? Denn, Dort....!

VB.NET 2005 EE / MySQL / MSSQL EE