Achei esse código

Porem o mesmo não esta funcionando, ele roda mas a tabela não e atualizada.

Sub Update()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
'apaga todos os registros da tabela
CurrentDb.Execute "DELETE * from Cadastro"
blnHasFieldNames = True
strPath = "K:" ' drive onde se situa o seu documento excel
strTable = "Cadastro" 'nome da tabela no seu banco
strFile = Dir(strPath & "Backup.xls") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel que estiverem em C: para a tabela do banco.
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
End Sub