[Resolvido]Erro em código

Ola colégas,

Tenho um código que importa do excel e joga em uma tabela temporaria dentro do access,
e tenho uma consulta acrescimo que pega dessa tabela temporaria e joga na tabela final,
porem esse código esta dando erro, a consulta quando executada sozinha esta funcionando perfeitamente
o problema esta no código e não consigo achar onde esta o erro ?


Codigo usado no botão

Código:

Function AbrirRC() As String
    
    ' Requer referencia a Microsoft Office 11 Object Library
    On Error GoTo PROC_ERR
    
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    fd.Title = "selecione o ficheiro"
    fd.Filters.Add "Ficheiro XLSX", "*.xlsx", 1

    fd.Show
    
    If (fd.SelectedItems.Count > 0) Then
        '------inicio importação excel para sincronização
        Dim strPathFile As String, strFile As String, strPath As String
        Dim strTable As String
        Dim blnHasFieldNames As Boolean
        blnHasFieldNames = True
        strPathFile = fd.SelectedItems(1)
        strTable = "tblProdutosTemp"
      
        'apaga temporarios
        DoCmd.RunSQL "Delete * from tblProdutosTemp"
        
        'importa para tabela local temporária
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames
        
        
        'sql lança novos
        DoCmd.OpenQuery "xls03LancaNovos", acViewNormal, acEdit
        
        MsgBox "Operação concluída.", vbInformation, ""
        
        'apaga temporarios
        DoCmd.RunSQL "Delete * from tblProdutosTemp"
        
    Else
        MsgBox "Não foi escolhido nenhum ficheiro", vbInformation, ""
    End If
    
PROC_EXIT:
    Exit Function
    
PROC_ERR:
    DoCmd.Hourglass False
    If Err.Number = 3011 Then
       LocalXML = ""
       MsgBox ("Ficheiro inválido.")
    Else
        MsgBox Err.Description
    End If
    Resume PROC_EXIT
    
End Function

Print do erro

O problema parece estar nessa linha:

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames

Verifique se os títulos de colunas estão corretas na planilha Excel.

Obrigado claudio pela ajuda, mais o erro estava em tipo de dados imcompativeis do xls com a tabela
já consegui resolver mais uma vez obrigado