Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
 
        Dim file_open As New OpenFileDialog
        file_open.Filter = "csv-dateien|*.csv"
        file_open.AddExtension = True
 
        If file_open.ShowDialog = DialogResult.OK Then
 
            ds.Tables.Clear()
            ds.Tables.Add(LoadCSV(file_open.FileName))
 
            If Not ds.Tables.Count = 1 Then
                MessageBox.Show("Eine Datei konnte nicht gelesen werden")
                Exit Sub
            End If
 
            'Spalten in Ausgabedatei erstellen
            dtout = New cDataTableCSV
 
            dtout.Columns.Add("Action") : dtout.Columns.Add("Category")
            dtout.Columns.Add("Title") : dtout.Columns.Add("Beschreibung")
            dtout.Columns.Add("Bilder")
            dtout.Columns.Add("Bild vorhanden", GetType(System.Drawing.Icon))
 
            'Spalteninhalte einer Zeile als Zeichenfolge kombinieren
            Dim line As New System.Text.StringBuilder
 
            'Icon für Bilder vorhanden
            Dim ico_ok As New Icon("ok.ico")
            Dim ico_miss As New Icon("miss.ico")
 
            'Zeilen als Zeichenfolge kombinieren
            Dim text As New System.Text.StringBuilder
            dtout.Rows.Add({"*Action", "*Category", "*Title",
                "*Description", "PicURL", Nothing})
 
            Try
                For rowindex As Integer = 1 To ds.Tables(0).Rows.Count - 1
                    'zusätzliche Zeile einfügen
                    Dim row As DataRow = ds.Tables(0).Rows(rowindex)
                    Dim address As String = "http://lalala/Bilder/" & _
                      TextBox2.Text & "/" & row("SP_2") & ".jpg"
 
                    'Ausgabedatensatz aufbauen
                    Dim orow As DataRow = dtout.NewRow
                    orow("Action") = "Add"
                    orow("Category") = KategoriennummerTextBox.Text
                    orow("Title") = row("SP_0")
                    orow("Beschreibung") = TextBox5.Text
                    orow("Bilder") = address
 
                    'Bilder URL prüfen
                    Dim netCall As HttpWebRequest = HttpWebRequest.Create( _
                      address.ToString)
                    Dim resp As HttpWebResponse = Nothing
 
                    Try
                        resp = netCall.GetResponse()
                        If resp.StatusCode = HttpStatusCode.OK Then orow("Bild" & _
                          "vorhanden") = ico_ok
                        resp.Close()
                    Catch ex As Exception
                        orow("Bild vorhanden") = ico_miss
 
                    End Try
 
                    dtout.Rows.Add(orow)
 
                    'Ausgabe-Datensatz als Text aufbereiten
                    line.Clear()
                    For i As Integer = 0 To orow.ItemArray.Length - 1
                        line.Append(orow(i).ToString & ";")
                    Next i
 
                Next rowindex
            Catch ex As Exception
                MessageBox.Show("Abbruch - Fehler: " & ex.Message)
                Exit Sub
            End Try
 
            'Ausgabe als Text anzeigen
            DataGridView1.DataSource = dtout
            DataGridView1.CurrentCell = Nothing
            DataGridView1.Rows(0).Visible = False
 
        End If
    End Sub