Sub DeleteTable()

Const remoteDatabase As String = "Z:\Swedwood KR\Other\Task system\DataBase\UVDB.accdb"
Const PW             As String = "passwords"
Const Tablename      As String = "Elephant"

Dim ws As DAO.Workspace
Dim db As DAO.Database
   
    Set ws = DBEngine.Workspaces(0)
    
        Set db = ws.OpenDatabase(remoteDatabase, False, False, "MS Access;PWD=" & PW)
    
            'Delete the table
            db.Execute "DROP TABLE [" & Tablename & "]", dbFailOnError
            
            'insert table
            'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
            
        Set db = Nothing
        
        
    Set ws = Nothing
End Sub

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _
    "Elephant", "Z:\C.xlsx", True, "A1:L100"
endSub: