ADODB.Recordset error '800a0cb3'

Hola !

Tiengo un problema con este codigo:

<%
set conn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")

'DSN less connection
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=" & Server.MapPath("..\bd.mdb")
Conn.Mode = 3
conn.open

strsql = "Select * from dados"
set rs = conn.Execute (strsql)
rs.addnew
rs.fields("Field")="Example"
rs.update

'close the recordset
rs.close
set rs = nothing

'close the connection
conn.close
set conn = nothing
%>



El error:

ADODB.Recordset error '800a0cb3'

BD - Access 97 OS - Windows 2000 server