Además no lo veo nada claro. Yo pensaba que el código sería de este estilo, no sé si me has pasado el código para otra cosa:
Código:
basedatos ="ruta"
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Set registros = conexion.Execute("SELECT * FROM campo")