<%
Dim conn
Dim Rs
Dim Ruta
Dim Index
Ruta=Server.MapPath("/test.mdb")
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Ruta
Set Rs=conn.Execute("Select * from dato")
%>
Te pongo el codigo que use para conectarme porque fue ahi donde me dio el error. Pero te cuento que le di formato al DD y volvi a instalar todo y me funciono sin errores, pero lo mas insolito fue que los archivos que habia hecho los habia respaldado y los probe de nuevo y me dieron el mismo error, entonces los elimine y los hice de nuevo y todo funciono perfecto en realidad no comprendo
de todos modos gracias por tu interes, saludos.