The following code worked perfectly for me:
Private Sub Command0_Click()
Dim myAppendQuery As String
Dim myDeleteQuery As String
myAppendQuery = "INSERT INTO CHARGES ( SITE, PDATE, PAMOUNT, [DESC], DESC1, ACHGROUP) "
myAppendQuery = myAppendQuery & " SELECT List.SITE, List.PDATE, List.PAMOUNT...