ho questo problema ho questo codice per l'aggiornamento però ho mi viene sempre fuori questo errore ADODB.Recordset (0x800A0CB3) localizzato nella linea 35 che sarebbe objrs.AddNew qualcuno mi può aiutare

<html>
<head>
<title>Bungalow</title>
</head>
<body>
<form method="POST" action = "insb.asp">



Id bungalow:</p> <input type="text" name="txt_id_bungalow">
</br>


Stato:</p> <input type="RADIO" name="txt_stato" value="Libero"checked>Libero
<input type="RADIO" name="txt_stato" value="Ocupato">Occupato
</br>


Data di arrivo:</p> <input type="text" name="txt_data_arrivo">
</br>


Data di partenza:</p> <input type="text" name="txt_data_partenza">
</br>


Costo settimanale bassa stagione:</p> <input type="text" name="txt_costo_sbs">
</br>


Costo settimanale media stagione:</p> <input type="text" name="txt_costo_sms">
</br>


Costo settimanale alta stagione:</p> <input type="text" name="txt_costo_sas">
</br>


numero massimo di persone:</p> <input type="text" name="persone">
</br>


descrizione:</p> <input type="text" name="descrizione">
</br>
<input type="submit" name="invia" value="invia">

</form>
</body>
</html>

<%
Dim objconn
Dim objrs
Dim SQL
Dim tid_bungalow
Dim tstato
Dim tdata_arrivo
Dim tdata_partenza
Dim tcosto_sbs
Dim tcosto_sms
Dim tcosto_sas
Dim tdescrizione
Dim tpersone


tid_bungalow = Request.Form("txt_id_bungalow")
tstato = REQUEST.Form("txt_stato")
tdata_arrivo = Request.Form("txt_data_arrivo")
tdata_partenza = Request.Form("txt_data_partenza")
tcosto_sbs = Request.Form("txt_costo_sbs")
tcosto_sms = Request.Form("txt_costo_sms")
tcosto_sas = Request.Form("txt_costo_sas")
tpersone = Request.Form("txt_persone")
tdescrizione = Request.Form("txt_descrizione")

set objconn = server.createobject("adodb.connection")
set objrs = server.createobject("adodb.recordset")
objconn.open = " PROVIDER = Microsoft.Jet.OLEDB.4.0; DATA SOURCE= " & server.Mappath("villaggio.mdb")
SQL = "SELECT * FROM BUNGALOW"
SQL =SQL&" where '" & tid_bungalow & "' = id_bungalow"
objrs.open SQL, objconn, 3, 3

if objrs.bof=(true) and objrs.eof=(true) then
response.write "ok"
objrs.AddNew
objrs("id_bungalow")= tid_bungalow
objrs("stato")= tstato
objrs("data_arrivo")= tdata_arrivo
objrs("data_partenza")= tdata_partenza
objrs("costo_sbs")= tcosto_sbs
objrs("costo_sms")= tcosto_sms
objrs("costo_sas")= tcosto_sas
objrs("numero_pm")= tpersone
objrs("descrizione")= tdescrizione
objrs.update


else

response.write "bungalow già inserito"

end if


objrs.close
objconn.close
set objconn= nothing
set objrs= nothing
%>
set objrs= nothing
%>