[VB6] Query di aggiornamento e operazione non consentita

[^EvAmPiReS^]

Scusate ma dove sbaglio?

Private Sub CommandSvuota_Click()

Dim sql As String

Data.DatabaseName = App.Path & "\xxx.mdb"

sql = "   update Ospite "
sql = sql & "     set numerostanza = 0 "
sql = sql & "      where numerostanza = " & TextNumStanza & " "


Data.RecordSource = sql

Data.Refresh

End Sub

Quando eseguo la query mi dà:

"Errore di run-time 3219 Operazione non valida"