Você está faltando os pontos dentro do com os pontos da estrutura… dentro dos quatro comandos
Com DoCmd
.SetWarnings falso
.DeleteObject acTable, “tbl_CustomerConcernsCopy”
qry_CustomerConcerns” 'alerta de .OpenQuery os “ocorrerão aqui
.SetWarnings verdadeiro
Extremidade com