Hola como cambio este tipo de conexion a una de acceso directo como source="c:\datos\corect.mdb"
accessdb="Corect"
cn="driver={Microsoft Access Driver (*.mdb)};"
cn=cn & "dbq=" & server.mappath(accessdb)
set rs = server.createobject("ADODB.Recordset")
sql = "select * from table1 order by Accion depto asc"
rs.Open sql, cn
gracias por la ayuda.