จะสามารถเขียน Code VB.Net ดึงชื่อชีส Sheet ใน Excel มาแสดงใน Combobox มีวีธีไหนบ้างคับ

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cn As New SqlConnection("Data Source=PTK530080085-PC;Initial Catalog=test;Integrated Security=True;Pooling=False")
        cn.Open()
        Dim message As String = String.Empty
        Dim cm As New SqlCommand
        For Each row As DataGridViewRow In DataGridView1.Rows
            Dim isSelected As Boolean = Convert.ToBoolean(row.Cells("checkBoxColumn").Value)
            If isSelected Then
                message &= row.Cells("id").Value.ToString()

                With cm
                    .Connection = cn
                    For i As Integer = 0 To DataGridView1.RowCount - 2
                        .CommandText = "insert into test2 values('" & DataGridView1.Rows(i).Cells(1).Value & "','" & DataGridView1.Rows(i).Cells(2).Value & "','" & DataGridView1.Rows(i).Cells(3).Value & "' )"
                        .ExecuteNonQuery()
                    Next
                End With
            End If
        Next
        cm.Dispose()
        cm = Nothing
        With cn
            .Close()
            .Dispose()
        End With
        cn = Nothing
    End Sub

 For i As Integer = 0 To DataGridView1.RowCount - 2
              if Checkbox  = true then ' insert เฉพาะตัวที่ Checkbox ไว้
                    .CommandText = "insert into test2 values('" & DataGridView1.Rows(i).Cells(1).Value & "','" & DataGridView1.Rows(i).Cells(2).Value & "','" & DataGridView1.Rows(i).Cells(3).Value & "' )"
                    .ExecuteNonQuery()
             end if
                Next

Dim checkBoxColumn As New DataGridViewCheckBoxColumn()
        checkBoxColumn.HeaderText = ""
        checkBoxColumn.Width = 30
        checkBoxColumn.Name = "checkBoxColumn"
        DataGridView1.Columns.Insert(0, checkBoxColumn)

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cn As New SqlConnection("Data Source=PTK530080085-PC;Initial Catalog=test;Integrated Security=True;Pooling=False")
        cn.Open()
        Dim message As String = String.Empty
        Dim cm As New SqlCommand
        For Each row As DataGridViewRow In DataGridView1.Rows
            Dim isSelected As Boolean = Convert.ToBoolean(row.Cells("checkBoxColumn").Value)

            With cm
                .Connection = cn
                For i As Integer = 0 To DataGridView1.RowCount - 2
                    If isSelected = True Then ' insert เฉพาะตัวที่ Checkbox ไว้
                        .CommandText = "insert into test2 values('" & DataGridView1.Rows(i).Cells(1).Value & "','" & DataGridView1.Rows(i).Cells(2).Value & "','" & DataGridView1.Rows(i).Cells(3).Value & "' )"
                        .ExecuteNonQuery()
                    End If
                Next
            End With

        Next
        cm.Dispose()
        cm = Nothing
        With cn
            .Close()
            .Dispose()
        End With
        cn = Nothing
    End Sub

For i As Integer = 0 To DataGridView1.RowCount - 2

if check = true then 
 insert 
end if

next

Friend Class ConnectData 'ประกาศเป็น Friend Class จะได้ใช้ได้ทั่วถึงทุก class
       Dim cn As New SqlConnection("Data Source=PTK530080085-PC;Initial Catalog=test;Integrated Security=True;Pooling=False")
       Dim cm As New SqlCommand
    Public Sub ConnectOpen()
        cn.Open()
    End Sub
    Public Sub ConnectClose()
       cm.Dispose()
       cm = Nothing
        With cn
           .Close()
           .Dispose()
       End With
        cn = Nothing
    End Sub
    Public Sub SQLExecute(sql As String)
        

           With cm
               .Connection = cn
               .CommandText = sql
               .ExecuteNonQuery()
               
          End With
       
    End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ConnectData.ConnectOpen() 'เปิดใช้งาน SqlConnection
       Dim SQL As String =""
               For i As Integer = 0 To DataGridView1.RowCount - 2
                   If Convert.ToBoolean(DataGridView1(0,i).Value)= True Then ' insert เฉพาะตัวที่ Checkbox ไว้
                   SQL  = "insert into test2 values('" & DataGridView1(1,i).Value & "','" & DataGridView1(2,i).Value & "','" & DataGridView1(3,i).Value & "' )"
                    ConnectData.SQLExecute(SQL) 'เรียกใช้ SQLExecute
                   End If
               Next
           End With
       
       
       ConnectData.ConnectClose() 'ปิดใช้งาน SqlConnection
   End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim cn As New SqlConnection("Data Source=PTK530080085-PC;Initial Catalog=test;Integrated Security=True;Pooling=False")
       cn.Open()
       Dim message As String = String.Empty
       Dim cm As New SqlCommand

       For Each row As DataGridViewRow In DataGridView1.Rows 'แถวแรก ถึง แถวสุดท้าย
           Dim isSelected As Boolean = Convert.ToBoolean(row.Cells("checkBoxColumn").Value)
           With cm
               .Connection = cn
               'For i As Integer = 0 To DataGridView1.RowCount - 2 *****
                   If (isSelected) AndAlso (Not row.IsNewRow) Then ' insert เฉพาะตัวที่ Checkbox ไว้
                       .CommandText = "insert into test2 values('" & row.Cells(1).Value & "','" & row.Cells(2).Value & "','" & row.Cells(3).Value & "' )"
                       .ExecuteNonQuery()
                   End If
               'Next *****
           End With
       Next
       cm.Dispose()
       cm = Nothing
       With cn
           .Close()
           .Dispose()
       End With
       cn = Nothing
   End Sub