scusate come posso corregere questo tipo di errore?


[CODE]sub inserimento_db()
dim connessione
set connessione = server.createobject("Adodb.connection")
connessione.open "Provider=Microsoft.jet.oledb.4.0;Data Source = " & server.MapPath("tabella.mdb")
dim rs
set rs=server.createobject("adodb.recordset")

rs.ActiveConnection = Connessione
rs.open "select * from 2005",connessione, 0, ForWriting
nometab = session("anno")
for progr = progressivo1 to progressivo2
valore_data = cdate(vettore_data(progr+1))
valore_sistemazione_a = cstr(vettore_sistemazione_a(progr+1))
valore_sistemazione_b = cstr(vettore_sistemazione_b(progr+1))
valore_letto = cstr(vettore_letto(progr+1))
valore_riscaldamento = cstr(vettore_riscaldamento(progr+1))
strsql = "UPDATE " & nometab & " SET data='" & valore_data & "'," _
& "sistemazione_a='" & valore_sistemazione_a & "'," _
& "sistemazione_b='" & valore_sistemazione_b & "'," _
& "letto='" & valore_letto & "'," _
& "riscaldamento='" & valore_riscaldamento & "' " _
& "WHERE progressivo=" & progr
rs.execute(strsql)
next

rs.close
connessione.close
set connessione = nothing
set rs = nothing
end sub [/CODE
] Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'rs.execute'
/Prove_Antonio/tabella.asp, line 168