Código:
Un saludo set miconexion = Server.CreateObject("ADODB.Connection")
miconexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\bbdd.mdb"
set rs=Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM tabla"
rs.open sql, miconexion, 3, 3
if rs.eof then
rs.Addnew
rs("campo")=campo
rs.Update
end if

