'Conexion
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/su-basededatos.mdb")
'------------------------------------------------------
'Crear la conexion y grabar el conjunto de object
set conn= server.createObject("ADODB.connection")
set rs = server.createobject("ADODB.recordset")
conn.Open strconn