[Resolvido]Importar dados do Excel via VBA

Olá
Utilizo o código em anexo para importar dados para o sql server.
O código era bastante rápido mas desde que actualizei para o access 2016 ficou cerca de 10 vezes mais lento, alguém me sabe dizer porque?
Com o 2013 demorava cerca de 19 segundos agora com o 2016 demora cerca de 2 minutos.
Existirá outra forma de aceder ao excel que fique mais rápido?

no meu é o 2010

tive que alterar algumas coisas para funcionar deu 43 segundos

Copiar o link e colar no Navegador

drive.google.com/file/d/0B68g40pD0OtIWTl1Ump3N08zaFE/view?usp=sharing
drive.google.com/file/d/0B68g40pD0OtIQ0dtTlZ5cldyX00/view?usp=sharing
drive.google.com/file/d/0B68g40pD0OtITXNvSFNqVVRmVWM/view?usp=sharing

=>Nois meu amigo, editei seu Post, Como o Site de compartilhamento de Imagem esta com problemas, e Imagens inseridas de outros sites não são permitidos/exibido... Coloquei os Links visíveis...

Viva
Alterei o código conforme a sua imagem, mas não funciona, dá para colar aqui o código completo?

Código:

Private Sub Comando0_Click()

On Error Resume Next

Form_Teste.DataIni = Now
Dim objExcelApp As Object, objSheet As Object
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Workbooks.Open FileName:="D:\Teste.xlsx"
objExcelApp.Visible = False

Dim I As Long

Set objSheet = objExcelApp.ActiveWorkbook.ActiveSheet
I = 2

Form_Teste.RegTotal = objExcelApp.Cells(Rows.Count, 1).End(xlUp).row - 1

While Len(objSheet.Cells.Range("A" & I)) >= 1
Form_Teste.RegAtual = I - 1
I = I + 1
Wend


Set objSheet = Nothing
objExcelApp.Quit

Form_Teste.DataFim = Now
Form_Teste.Duracao = DateDiff("s", Form_Teste.DataIni, Form_Teste.DataFim)
End Sub


ativei a biblioteca de referencias conforme imagens acima

Obrigado pela dica.
Utilizei o método do tópico abaixo e é praticamente instantâneo, recomendo a utilização deste método.

https://www.maximoaccess.com/t29052-importar-do-excel-atraves-de-recordset-informando-a-coluna-e-nao-nome-dos-campos-excel?highlight=importar+com+recordset

Abraços