errrore di run time '-2147217913 (80040e07)'
micosoft / driver ODBC microsoft Access - tipi di dati nn corrispondenti nell'espressione di criterio


potresti aiutarmi???

l'errore me lo continua a dare nell'ELIMINAZIONE e nell'aggionrnamento la mia query di eliminazione è :
con.Execute ("DELETE * FROM rimanenze WHERE IdRimanenze = '" & CInt(s(0)) & "';")

mentre quella di aggiornamento è


sql = "UPDATE rimanenze SET " _
& "CodArticolo = '" & Replace(cmbCodArticolo.Text, "'", "''") & "', " _
& "DescrArticolo = '" & Replace(txtDescrArticolo.Text, "'", "''") & "', " _
& "CodCategoria = '" & Replace(txtCodCategoria.Text, "'", "''") & "', " _
& "Cliente = '" & Replace(txtCliente.Text, "'", "''") & "', " _
& "DataOrdine = '" & Replace(txtDataOrdine.Text, "'", "''") & "', " _
& "QuantOrdinata = '" & Replace(txtQuantOrd.Text, "'", "''") & "', " _
& "PrezzoOrdinato = '" & Replace(txtPrezzoOrdine.Text, "'", "''") & "', " _
& "Fornitore1 = '" & Replace(txtForn1.Text, "'", "''") & "', " _
& "Fornitore2 = '" & Replace(txtForn2.Text, "'", "''") & "', " _
& "Fornitore3 = '" & Replace(txtForn3.Text, "'", "''") & "', " _
& "NoteAgg = '" & Replace(txtNote.Text, "'", "''") & "', " _
& "DataEvasione = '" & Replace(txtDataEvasione.Text, "'", "''") & "', " _
& "QuantEvasa = '" & Replace(txtQuantEvas.Text, "'", "''") & "', " _
& "PrezzoEvaso = '" & Replace(txtPrezzoEvas.Text, "'", "''") & "', " _
& "Evaso = '" & Replace(chkEvaso.Value, "'", "''") & "' " _
& "WHERE (IdRimanenze = '" & CInt(s(0)) & "');"



dove s = Split(Split(cmbSelRimanenza.Text, " - "))