ADODB.Recordset error '800a0cb3'

Aqui te envio las correcciones, lo probe y me funciono

'********Tu 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
%>

'***********Mis correciones*********************
<%
set conn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")

'DSN less connection
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
strConeccion ="Data Source=" & Server.MapPath("..\bd.mdb") & ";Persist
Security Info=False"
Conn.ConnectionString = strConeccion
Conn.open

Rs.Open "Select * from dados",Conn, 2,2

rs.AddNew
rs("Field") = "Example"
rs.Update

'close the recordset
rs.close
set rs = nothing

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

Gracias !!!
Por fin lo he logrado.
Muchas gracias por tudo.
perdona mi español pero no es mi lingua maternal (portugues)
Obrigado

"Int_21" escreveu na mensagem
news:

Aqui te envio las correcciones, lo probe y me funciono

'********Tu 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
%>

'***********Mis correciones*********************
<%
set conn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")

'DSN less connection
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
strConeccion ="Data Source=" & Server.MapPath("..\bd.mdb") & ";Persist
Security Info=False"
Conn.ConnectionString = strConeccion
Conn.open

Rs.Open "Select * from dados",Conn, 2,2

rs.AddNew
rs("Field") = "Example"
rs.Update

'close the recordset
rs.close
set rs = nothing

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

Cual fue tu solucion, solo por curiosidad??

he cambiado el codigo por lo que tu me has dado etudo ha funcionada

Gracias

"Int_21" escreveu na mensagem
news:

Cual fue tu solucion, solo por curiosidad??