[VBA] Problema on la insert

[Astharot]

intendi fare così

Private Sub Aggiorna_Cliente_Click()
Dim sSqlU As String
Dim sWhereU As String

sSqlU = "Insert Into Clienti (Città, [Indirizzo 1] Values ('" & (Replace(Me.Città, "'", "''") & "','" & Replace(Me.Indirizzo_1, "'", "''"))
sWhereU = "Where"
sWhereU = sWhereU & " Clienti.Cod_Clienti = '" & Replace(Me.Cod_Cliente, "'", "''") & " and Clienti.Cod_Progressivo = '" & Replace(Me.Cod_Progressivo, "'", "''") & "'"

CurrentProject.Connection.Execute (sSqlU)


End Sub

cmq mi da sempre errore sulla CurrentProject.Connection.Execute (sSqlU)