منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم 
ارجوو المساعدة في معرفة الخطأ في الكود المرفق 
المصدر من يوتيوب 
الرابط الفيديو 
https://youtu.be/LMyOWX8bL_A
المكتبات المستخدمة 
Imports System.IO
Imports System.Data
Imports system.Management
Imports system.Data.SqlClient

Imports system.Text
Imports system.Security.Cryptography
===================
    Private Sub Button2_Click_1(ByVal sender As system.Object, ByVal e As system.EventArgs) Handles Button2.Click

        Dim sfd As New SaveFileDialog
        sfd.FileName = "export-csv"
        sfd.Filter = "CSV file |*.csv"
        If sfd.ShowDialog() = DialogResult.OK Then
            Using sw As StreamWriter = File.CreateText(sfd.FileName)

                Dim dgvcolumnNames As List(Of String) = DataGridView1.Columns.
                    Cast(Of DataGridViewColumn).ToList().
                    Select(Function© c.Name).ToList()
                sw.WriteLine(String.Join(",", dgvcolumnNames))

                For Each row As DataGridViewRow In DGV.Rows
                    Dim rowData As New List(Of String)
                    For Each column As DataGridViewColumn In DataGridView1.Columns

                        rowData.Add(Convert.ToString(row.Cells(column.Name).Value))
                    Next
                    sw.WriteLine(String.Join(",", rowData))
                Next
                Process.Start(sfd.FileName)
            End Using
        End If

    End Sub
=================================================