VBA delete and append

[bb_]

In my form I have a button essentially to update a Linked sharepoint list.. the "update" deletes all records from the list and then runs an append query to add the new records. this update should be performed once a month. However it runs very slow and it not responding when I click. It does perform the commands but takes a couple minutes. Any ideas for improvement
here is the VBA:
Private Sub Toggle1518_Click()
Dim dbs As DAO.Database
Dim strSQL As String

Set dbs = CurrentDb()
strSQL = "DELETE [Table].* from [Table]"


dbs.Execute strSQL
dbs.Execute "Append Table"



End Sub

[June7]

Use a command button instead of toggle.

Probably won't make a difference but DELETE does not have to reference fields because the entire record is deleted: DELETE FROM [table]

Post the SQL of the INSERT action.