Estou executando o código a seguir para importar uma planilha inteira do Excel para acessar, a planilha tem 77k linhas, mas o Access está importando apenas 65.535, qualquer dúvida sobre como corrigi-la? O Excel e o Access são a versão 2013.

Function importa()

    Dim rs As DAO.Recordset
    Dim inicio As String
    Dim fim As String


 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
    "NOMEBASE", Application.CurrentProject.Path() + "\Abre_Envio_Novo_Layout.xlsm", True, "Menu!BJ25:BM26"



    Set db = CurrentDb()
    Set rs = db.OpenRecordset("NOMEBASE")

    inicio = rs.Fields(2).Value
    fim = rs.Fields(3).Value



DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
    "BASE", Application.CurrentProject.Path() + "\Abre_Envio_Novo_Layout.xlsm", True, "Mailing_Recebido!A:AX"


    rs.Close

End Function