Mi da errore qui

CurrentProject.Connection.Execute (sSqlU)

la stringa di codice della where che uso qui mi funziona bene

Private Sub Cancella_Cliente_Click()

Dim sSqlD As String
Dim sWhereD As String

sSqlD = "Delete From Clienti"
sWhereD = ""
sWhereD = sWhereD & " Clienti.Cod_Progressivo = '" & Replace(Cod_Progressivo, "'", "''") & " and Clienti.Cod_Cliente = '" & Replace(Cod_Cliente, "'", "''") & "'"

CurrentProject.Connection.Execute (sSqlD)

DoCmd.Close
Exit_Annulla_Nuovo_Cliente_Click:
Exit Sub

End Sub