SoloCodigo

Saludos a todos, ya logre resolver el problema y lo que hice es utilizar un RecordSet para hacerlo.

' declaro los objetos a utilizar
Dim objConn, RS, adOpenKeySet, adLockOptimistic As Object
        Dim strSQL As String

        adOpenKeySet = 1
        adLockOptimistic = 3
' creo la coneccion al servidor SQL Server
        objConn = Server.CreateObject("ADODB.Connection")
        objConn.ConnectionString = "Provider=SQLOLEDB; DATA SOURCE=localhost" & _
                                   "Integrated Security=SSPI; Initial Catalog=MiBase"
        objConn.Open()
' creo y asigno propiedades al RS para que pueda desplazarse en los registros
        RS = Server.CreateObject("ADODB.Recordset")
        RS.CursorType = adOpenKeySet
        RS.LockType = adLockOptimistic

' se habre la coneccion y se le asigna lo que esta en la consulta al RS
        strSQL = "select * from tablavar where id = " & clavex1
        RS.Open(strSQL, objConn)

' con este ciclo puedo moverme entre los registros de la tabla
Do While Not RS.EOF
// acciones a realizar
RS.MoveNext()
Loop`

RS.Close()
RS = Nothing


NOTA:  se debe poner compatibilidad con asp en la primer linea de la pagina en vista HTML

<%@ Page Language="vb" AspCompat="true"%>

y se deben asignar permisos en SQL Server a la cuenta ASPNET para que pueda ver y utilizar la BD.


bueno eso es todo, espero le pueda servir a alguien mas.   asta pronto.

hola alguien me puede ayudar y me puede confirmar lo siguiente

 declaro los objetos a utilizar
Dim objConn, RS, adOpenKeySet, adLockOptimistic As Object
Dim strSQL As String

adOpenKeySet = 1
adLockOptimistic = 3
' creo la coneccion al servidor SQL Server
objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=SQLOLEDB; DATA SOURCE=localhost" & _
"Integrated Security=SSPI; Initial Catalog=MiBase"
objConn.Open()
' creo y asigno propiedades al RS para que pueda desplazarse en los registros
RS = Server.CreateObject("ADODB.Recordset")
RS.CursorType = adOpenKeySet
RS.LockType = adLockOptimistic

' se habre la coneccion y se le asigna lo que esta en la consulta al RS
strSQL = "select * from tablavar where id = " & clavex1
RS.Open(strSQL, objConn)

' con este ciclo puedo moverme entre los registros de la tabla
Do While Not RS.EOF
// acciones a realizar
RS.MoveNext()
Loop`

RS.Close()
RS = Nothing

este codigo me sirbe para recorrer un dataset mi correo es inmaculada104@hotmail.com muchas gracias un saludo