[Resolvido] Datagridview populado lentidão

Boa tarde pessoal

Estou com um projeto em Vb.Net que consiste em importar dados de uma planilha de Excel para um Datagridview.

O projeto esta funcionando tudo ok porem notei que quando vou movendo as barras laterais e inferiores o formulário apresenta grande lentidão para mover as colunas etc...

Fiz o teste criando um projeto novo com somente 1 Form, 1 Datagrid e 1Botão e os códigos para fazer a importação e quando eu "populo" o datagridview com o conteudo ele apresenta esses legs.

Alguem a ja passou por isso?

Será que é configuração da máquina? (Não é uma máquina tão fraca)

O Vb.NET é a versão 2015

Os arquivos de Excel variam de 80 Linhas por 5 Colunas á 400 linhas e 5 colunas

O código é esse:

Sub ImportaEstoque()
        Dim Local
        Local = EndArquivo()

If String.IsNullOrWhiteSpace(Local) Then
            MessageBox.Show("Nenhum arquivo foi selecionado.", "Informação.", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
        End If

'------------------------------
        Dim caminhoArquivoExcel As String = Local
        Dim nomePlanilhaExcel As String = "ESTQ" & "$"
        Dim conexaoOleDb As OleDbConnection = Nothing
        Dim ds As DataSet
        Dim cmd As OleDbDataAdapter
        '------------------------------

Try
            'conexaoOleDb = New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Local & ";Extended Properties=Excel 8.0;")
            conexaoOleDb = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & Local & ";Extended Properties='Excel 8.0;HDR=Yes'")

            'cmd = New OleDbDataAdapter("Select * from [" & nomePlanilhaExcel & "]", conexaoOleDb)

            cmd = New OleDbDataAdapter("Select * from [" & nomePlanilhaExcel & "]  Where UM Like '%" & "PC" & "%'", conexaoOleDb)

            cmd.TableMappings.Add("Table", "tabelaExcel")
            ds = New DataSet
            cmd.Fill(ds)
            dgvDados.DataSource = ds.Tables(0)
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            conexaoOleDb.Close()
        End Try

        sbQtdItens.Text = "Encontrados " & dgvDados.RowCount.ToString & " itens."

    End Sub

	 

	 

	 

	Pessoal desde já muito obrigado pela força!