Errore con metodo execute di un recordset

[tony83]

ok mi restituisce un'errore

Microsoft JET Database Engine (0x80040E0C)
Testo del comando non impostato per l'oggetto comando.

l'errore è su questa riga:

rs.open ,connessione, 0, ForWriting

ecco il codice

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 ,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
	    set rs = connessione.Execute(strSQL)
	next

    rs.close
	connessione.close
	set connessione = nothing
	set rs = nothing
end sub