There is already an open DataReader associated with this Connection which must _
  be closed first.

    Private Sub SucheStarten(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        DataGridView1.DataSource = Nothing
        Dim DataAdapter1 As New MySqlDataAdapter("", My.Settings.SqlConnString)
        Dim DataSet1 As New DataSet()
        SpeichernToolStripButton.Enabled = False
        SpeichernToolStripMenuItem.Enabled = False
        DataAdapter1.SelectCommand.CommandText = "select betriebsstelle AS" & _
          "Betriebsstelle, str_nr AS Streckennummer, w_nr as Weichennummer," & _
          "w_art as Weichenart from weichenstammdaten where betriebsstelle like" & _
          "?Feld1 or w_nr like ?Feld1"
        DataAdapter1.SelectCommand.Parameters.Add("?Feld1", "%" + TextBox1.Text _
        + "%")
        Try
            DataAdapter1.Fill(DataSet1, "Select")
            DataGridView1.DataSource = DataSet1.Tables("Select")
            DataGridView1.AutoResizeColumns()
        Catch SqlEX As MySqlException
            ToolStripStatusLabel.Text = SqlEX.Message
        End Try
        Button2.Enabled = True
    End Sub

        For Each Item As DataGridViewRow In DataGridView1.SelectedRows
            SpeichernToolStripButton.Enabled = False
            SpeichernToolStripMenuItem.Enabled = False
            If RadioButtonF.Checked = True Then
                Dim DataAdapter1 As New MySqlDataAdapter("", _
                  My.Settings.SqlConnString)
                DataAdapter1.SelectCommand.CommandText = "select datum AS" & _
                "'Datum', note_stoss_1 AS '1.Schweisstoss', NOTE_RADL_EINLAUF" & _
                "AS 'Radlenker Einlauf', NOTE_KNICK AS 'Fluegelschienenknick'," & _
                "NOTE_HERZSTUECK AS 'Herzstueck', NOTE_STOSS_2 AS '2." & _
                "Schweissstoss' from esah_d.esahf where W_NR = ?Feld1 AND datum" & _
                "BETWEEN ?Datum1 AND ?Datum2"
                DataAdapter1.SelectCommand.Parameters.Add("?Feld1", "%" + _
                Item.Cells(0).Value.ToString + "%")
                DataAdapter1.SelectCommand.Parameters.Add("?Datum1", "%" + _
                DateTimePicker1.Text + "%")
                DataAdapter1.SelectCommand.Parameters.Add("?Datum2", "%" + _
                DateTimePicker2.Text + "%")
                Try
                    Dim NewChartForm As New ChartForm
                    NewChartForm.Text = "Weiche: " + Item.Cells( _
                      0).Value.ToString + ", Betriebsstelle: " + Item.Cells( _
                      1).Value.ToString + ", Stellwerk: " + Item.Cells( _
                      2).Value.ToString
                    DataAdapter1.Fill(NewChartForm.Data, "Data")
                    NewChartForm.Show()
                Catch SqlEX As MySqlException
                    MessageBox.Show(SqlEX.Message)
                End Try
           End If
        Next

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

VB.NET 2005 EE / MySQL / MSSQL EE