ciao nuovamente mi da errore di rutime 2501 e mi da l azion runsql e stata annullata

e se spingo su debug mi da una scritta in sottolineata in giallo
codice:
Option Compare Database
Option Explicit

Private Sub CtlActiveX1_Click()
Dim Risposta As Integer
If Salva = "Si" Then
Risposta = MsgBox("Variazione di Valori NON Salvati." & (Chr(13) & Chr(10)) & "Vuoi Slavare le Variazioni ?", 36, " ")
If Risposta = 6 Then
DoCmd.RunSQL "Delete [Giornaliero Camerieri].Data FROM [Giornaliero Camerieri] WHERE ((([Giornaliero Camerieri].Data)=#" & Format(Me![Testo2], "mm/dd/yy") & "#));"
DoCmd.RunSQL "INSERT INTO [Giornaliero Camerieri]( Data, Nome, Tariffa, Presenza ) SELECT #" & Format(Me![Testo2], "mm/dd/yy") & "# AS Data1, CamerieriAppoggio.Nome, CamerieriAppoggio.Tariffa, CamerieriAppoggio.Presenza FROM CamerieriAppoggio WHERE (((CamerieriAppoggio.Presenza)=-1));"
End If
End If
Salva = "No"



Me!Testo2 = Me!CtlActiveX1
DoCmd.RunSQL "DELETE CamerieriAppoggio.* FROM CamerieriAppoggio;"<---QUESTA E SOTTOLINEATA---->
DoCmd.RunSQL "INSERT INTO CamerieriAppoggio ( Data, Nome, Tariffa, Presenza ) SELECT [Giornaliero Camerieri].Data, [Giornaliero Camerieri].Nome, [Giornaliero Camerieri].Tariffa, [Giornaliero Camerieri].Presenza FROM [Giornaliero Camerieri] WHERE ((([Giornaliero Camerieri].Data) = #" & Format(Me![Testo2], "mm/dd/yy") & "#)) ORDER BY [Giornaliero Camerieri].Nome; "

DoCmd.RunSQL "UPDATE Camerieri SET Camerieri.Marca2 = 0;"
DoCmd.RunSQL "UPDATE Camerieri INNER JOIN CamerieriAppoggio ON Camerieri.Nome = CamerieriAppoggio.Nome SET Camerieri.Marca2 = -1 WHERE (((Camerieri.Marca)=-1));"
DoCmd.RunSQL "INSERT INTO CamerieriAppoggio ( Nome, Tariffa ) SELECT Camerieri.Nome, Camerieri.Tariffa FROM Camerieri WHERE (((Camerieri.Marca2)=0) AND ((Camerieri.Marca)=-1)); "

Requery
Refresh

'Me![SM Giornaliero].SetFocus
'DoCmd.GoToRecord acActiveDataObject, , acGoTo, 1


End Sub
Private Sub Comando6_Click()
DoCmd.RunSQL "Delete [Giornaliero Camerieri].Data FROM [Giornaliero Camerieri] WHERE ((([Giornaliero Camerieri].Data)=#" & Format(Me![Testo2], "mm/dd/yy") & "#));"
DoCmd.RunSQL "INSERT INTO [Giornaliero Camerieri]( Data, Nome, Tariffa, Presenza ) SELECT #" & Format(Me![Testo2], "mm/dd/yy") & "# AS Data1, CamerieriAppoggio.Nome, CamerieriAppoggio.Tariffa, CamerieriAppoggio.Presenza FROM CamerieriAppoggio WHERE (((CamerieriAppoggio.Presenza)=-1));"
Salva = "No"

Me![SM Giornaliero Camerieri].SetFocus
DoCmd.GoToRecord acActiveDataObject, , acGoTo, 1


End Sub

Private Sub Form_Load()
Salva = "No"

DoCmd.Maximize
Me!CtlActiveX1.Value = Format(Now, "dd/mm/yy")

DoCmd.RunSQL "DELETE CamerieriAppoggio.* FROM CamerieriAppoggio;"
Refresh

End Sub
Private Sub Comando7_Click()
Dim Risposta As Integer
If Salva = "SI" Then
Risposta = MsgBox("Variazione di Valori NON Salvati." & (Chr(13) & Chr(10)) & "Vuoi Slavare le Variazioni ?", 36, " ")
If Risposta = 6 Then ' Si
DoCmd.RunSQL "Delete [Giornaliero Camerieri].Data FROM [Giornaliero Camerieri] WHERE ((([Giornaliero Camerieri].Data)=#" & Format(Me![Testo2], "mm/dd/yy") & "#));"
DoCmd.RunSQL "INSERT INTO [Giornaliero Camerieri]( Data, Nome, Tariffa, Presenza ) SELECT #" & Format(Me![Testo2], "mm/dd/yy") & "# AS Data1, CamerieriAppoggio.Nome, CamerieriAppoggio.Tariffa, CamerieriAppoggio.Presenza FROM CamerieriAppoggio WHERE (((CamerieriAppoggio.Presenza)=-1));"
End If
End If
DoCmd.Close
End Sub