no se como se hacen los ejecutables de vbscript pero te puedo ayudar con ado.
<%
'primero debes realizar la coneccion
set Conn = server.createobject("ADODB.Connection")
'luego la abres, este ejemplo es para acces le debes cambiar la ruta de la base de datos, si usas otra me avisas
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Postmaster\Datos.mdb;Per sist Security Info=False"
'Aqui creamos el record set
set Rs = server.createobject("ADODB:Recordset")
'Luego lo abrimos con una consulta cualquiera y el nombre de la coneccion
Rs.open "Select * from Tabla",Conn
'Y accedemos a los resultados por el nombre del campo, supongamos que tienes los campos Id, Nombre y Apellido
Nombre = Rs("Nombre")
Apd = Rs("Apellido")
Id = Rs("Id")
'este es el primer registro de tu base de datos y si quieres ir al segundo solo tienes que poner: Rs.movenext esto es muy util para listar una tabla de esta manera:
%>
<table>
<% Do while not Rs.eof %>
<tr>
<td>Nombre = Rs("Nombre")</td>
<td>Apd = Rs("Apellido")</td>
<td>Id = Rs("Id")</td>
</tr>
<% Rs.movenext
loop %>
</table>
La propiedad eof del recordset te devuelbe true si se terminaron los registros, debes tener cuidado de no intentar leer el Rs si no tiene más registros por lo que se recomienda primero verificarlo.
Bueno, espero haberte sido de ayuda, cualquier otra duda escribeme