Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Me.Text = "Importar e Tratar CSV  | v" & My.Application.Info.Version.ToString

        Dim arquivoExiste As Boolean
        arquivoExiste = My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "/log.txt")

        If arquivoExiste = False Then
            If MessageBox.Show("O arquivo de log não existe, você gostaria de criar um agora ?", "Arquivo de Log", MessageBoxButtons.YesNo,
 MessageBoxIcon.Question) = DialogResult.Yes Then
                My.Computer.FileSystem.WriteAllText(My.Application.Info.DirectoryPath & "/log.txt", String.Empty, False)
                MsgBox("Arquivo de log criado!")
            End If
        End If

        Dim xLog As String = My.Application.Info.DirectoryPath & "/log.txt"
        Dim vt As String = vbCrLf & My.Application.Info.Version.ToString & " - " & My.User.Name & " - Programa Iniciado." & Date.Now
        Try
            My.Computer.FileSystem.WriteAllText(xLog, vt, True)
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

 Private Sub picLog_Click(sender As System.Object, e As System.EventArgs) Handles picLog.Click
        Dim xLog As String = My.Application.Info.DirectoryPath & "/log.txt"
        Diagnostics.Process.Start(xLog)
 End Sub

Private Sub btnImportarCSV_Click(sender As System.Object, e As System.EventArgs) Handles btnImportarCSV.Click
        Try
            ofd1.InitialDirectory = My.Application.Info.DirectoryPath
            If ofd1.ShowDialog(Me) = DialogResult.OK Then
                Dim nomeArquivo As New FileInfo(ofd1.FileName)
                Dim stringConexao As String = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Text;Data Source=" & nomeArquivo.DirectoryName
                Dim objConn As New OleDbConnection(stringConexao)
                objConn.Open()

                Dim oCmdSelect As New OleDbCommand("SELECT * FROM " & nomeArquivo.Name, objConn)
                Dim oAdapter As New OleDbDataAdapter
                oAdapter.SelectCommand = oCmdSelect
                Dim objdataset1 As New DataSet
                oAdapter.Fill(objdataset1, "teste")
                dgView.DataSource = objdataset1.Tables(0).DefaultView
                objConn.Close()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

Private Sub btnDestacar1_Click(sender As System.Object, e As System.EventArgs) Handles btnDestacar1.Click
        Try
            dgView.CurrentCell.Selected = False
            limpaGrid()
            Me.dgView.ClearSelection()
            If chkIdadeMaiorQue.CheckState = CheckState.Checked Then
                Dim cell As DataGridViewCell
                Dim cellVar As Integer
                For Each row As DataGridViewRow In Me.dgView.Rows
                    cell = row.Cells(2)
                    cellVar = CInt(row.Cells(2).Value)
                    If cellVar > txtIdade.Text Then
                        row.Selected = True
                    End If
                Next
            End If

            If chkFeminino.CheckState = CheckState.Checked Then
                Dim cell As DataGridViewCell
                Dim cellVar As String
                For Each row As DataGridViewRow In Me.dgView.Rows
                    cell = row.Cells(3)
                    cellVar = CStr(row.Cells(3).Value)
                    If cellVar = "Feminino" Then
                        row.Selected = True
                    End If
                Next
            End If

            If chkSobrenome.CheckState = CheckState.Checked Then
                If Not String.IsNullOrEmpty(txtSobrenome.Text) Then
                    Dim cell As DataGridViewCell
                    Dim cellVar As String
                    For Each row As DataGridViewRow In Me.dgView.Rows
                        cell = row.Cells(1)
                        cellVar = CStr(row.Cells(1).Value)
                        If cellVar = txtSobrenome.Text Then
                            row.Selected = True
                            cell.Style.BackColor = Color.Red
                        End If
                    Next
                Else
                    MessageBox.Show("Informe o sobrenome...")
                    ' desmarcaCheckBox()
                    Exit Sub
                End If
            End If

            If chkTodosFemininos.CheckState = CheckState.Checked Then
                Dim cell As DataGridViewCell
                Dim cellVar As String
                For Each row As DataGridViewRow In Me.dgView.Rows
                    cell = row.Cells(3)
                    cellVar = CStr(row.Cells(3).Value)
                    If cellVar = "Feminino" Then
                        cell.Selected = True
                    End If
                Next
            End If

            If chkTodosMasculinos.CheckState = CheckState.Checked Then
                Dim cell As DataGridViewCell
                Dim cellVar As String
                For Each row As DataGridViewRow In Me.dgView.Rows
                    cell = row.Cells(3)
                    cellVar = CStr(row.Cells(3).Value)
                    If cellVar = "Masculino" Then
                        cell.Selected = True
                    End If
                Next
            End If
        Catch ex As Exception
            MessageBox.Show("Importe o arquivo CSV para continuar....", "Aviso", MessageBoxButtons.OK, 
MessageBoxIcon.Information)
        End Try
        desmarcaCheckBox()
    End Sub

    Private Sub limpaGrid()
        For Each row As DataGridViewRow In Me.dgView.Rows
            row.Selected = False
        Next
    End Sub

    Private Sub desmarcaCheckBox()
        For Each c As CheckBox In GroupBox1.Controls
            If c.CheckState = CheckState.Checked Then
                c.CheckState = CheckState.Unchecked
            End If
        Next

        For Each c As CheckBox In GroupBox2.Controls
            If c.CheckState = CheckState.Checked Then
                c.CheckState = CheckState.Unchecked
            End If
        Next
    End Sub  

Private Sub btnExportarCSV_Click(sender As System.Object, e As System.EventArgs) Handles btnExportarCSV.Click

        If dgView.RowCount - 1 > 0 Then
            Dim rowsTotal, colsTotal As Short
            Dim I, j, iC As Short
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
            Dim xlApp As New Excel.Application

            Try
                Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add
                Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
                xlApp.Visible = True
                rowsTotal = dgView.RowCount - 1
                colsTotal = dgView.Columns.Count - 1

                With excelWorksheet
                    .Cells.Select()
                    .Cells.Delete()
                    For iC = 0 To colsTotal
                        .Cells(1, iC + 1).Value = dgView.Columns(iC).HeaderText
                    Next

                    For I = 0 To rowsTotal
                        For j = 0 To colsTotal
                            .Cells(I + 2, j + 1).value = dgView.Rows(I).Cells(j).Value
                        Next j
                    Next I

                    .Rows("1:1").Font.FontStyle = "Bold"
                    .Rows("1:1").Font.Size = 10
                    .Cells.Columns.AutoFit()
                    .Cells.Select()
                    .Cells.EntireColumn.AutoFit()
                    .Cells(1, 1).Select()
                End With

            Catch ex As Exception
                Dim meuArquivo As String = My.Settings.LogFile
                Dim itxt As New TextBox
                If IO.File.Exists(meuArquivo) Then
                    itxt.Text = IO.File.ReadAllText(meuArquivo)
                End If
                Dim vt As String = vbCrLf & Date.Now & " - " & My.Application.Info.Version.ToString & "--" & "Exportação para Excel ERRO - " 
& My.User.Name & itxt.Text
                My.Computer.FileSystem.WriteAllText(meuArquivo, vt, False)
                itxt.Clear()

            Finally
                'libera os recursos alocados
                System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
                xlApp = Nothing
            End Try
        Else
            MessageBox.Show("Importe o arquivo CSV para continuar....", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub