Ese código funciona perfectamente, mira te hago un copy-paste de la prueba que hice para constatarlo:
Código:
<!-- #INCLUDE File="adovbs.inc" -->
<%
Function MiConexion
Set oConn1 = Server.CreateObject("ADODB.Connection")
oConn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("prueba.mdb")
MiConexion = oConn1
set oConn1 = nothing
End Function
%>
<script runat=server LANGUAGE="VBSCRIPT">
Dim oConn1,oRs1
Set oConn1 = Server.CreateObject("ADODB.Connection")
Set oRS1 = Server.createobject("ADODB.Recordset")
'oConn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("prueba.mdb")
oConn1 = MiConexion
oRS1.Open "select top 20 * from nombres a",oConn1,adopenstatic,adcmdtext
vector = oRs1.GetRows
NumCampo = 1 ' La posición del campo que corresponda con "nombre_cliente"
For contador=0 to Ubound(vector,2)
nomcli = vector(NumCampo, contador)
if len(nomcli)>4 then
nomcli = mid(nomcli,1,4)&".."
end if
response.write vector(NumCampo, contador) & ": " & nomcli & "<br>"
Next
' while not oRs1.EOF
' response.write oRs1(1)&"<br>"
' oRs1.MoveNext
' Wend
</script>
No borre ni quite nada, si eso lo pegas en un .asp y lo corres (claro, si tienes el archivo adovbs) te debe de funcionar.
Aqui el chiste es no aferrarse a algo y ver las posibilidades. Recuerda que esta ayuda que te trato de brindar es de buena fè y con la única intensión de ayudarte a aprender.
Saludos