Hola mira sería así:

RS.Open "SELECT DNI FROM Usuario WHERE Id = 9", Conex, adOpenKeyset, adLockOptimistic
        Text2.Text = RS2!DNI
RS.Close

Siendo  "RS" el recorset que en tu caso es "stock", si sabes un poquito de SQL, notarás que se selecciona de la tabla "Usuario" el "DNI" (cédula o número de identificación), del registro cuyo ID sea igual a 9 y luego lo pasamos a un textbox.

saludos!

Que pesimista  esperaba más de ti 

a bueno, que tal "Quake III Arena", juego en primera persona, multijugador, nada de naves y si son muy chicos le desactivas la visualización de sangre es entretenido y muy bueno a mi parecer.

Eso es lo molesto, se había dicho que la fecha LÍMITE era el sábado 23 de agosto, se dieron dos semanas para jugar esa segunda ronda y resulta que hasta hoy, una sola partida se ha jugado... 

- 2 partidas jugadas de 8 posibles en primera ronda.
- 1 de 4 posibles en segunda hasta el día de hoy 

Y Lord, cuando acordamos por msn yo no vi ese mensaje acá, revise luego y después fue que lo vi posteado, por eso mi reacción...

Desde el inicio se dice cual es la red, se le pasa a todos por privado y psss... ¿aún quedan dudas?

¿Casi dos meses para jugar 2 partidas? y de paso la mayoría desaparece...

La falta de seriedad en GENERAL es lo que molesta (como dice edipo).

Y yo no le tengo miedo a nadie, así que Edipo, cuando quieras acepto un reto tuyo.

Como dice el mensaje, olvidaste colocar un "End Sub" en alguna parte de tu code o peor aún, lo borraste sin darte cuenta 

Buscas, comparas y eliminas...

Buscar archivos usando algunas funciones Api de Windows

No se para que me molesto  


la misma

---

ya ni para entretenerse hay, no es la mala organización, es que los que participan no le ponen seriedad al asunto, yo me retiro y uds. se las arreglan 

Te servirá esto?

Option Explicit
 
'-------------------------------------
'copy marchoso.ocx %windir%\system32
'regsvr32 marchoso.ocx'
'------------------------------------
 
Private Sub CmdRegistrar_Click()
    Open "Registra.bat" For Output As #1
            'Copiamos el control a system32
            Print #1, "copy " & Text1.Text & " %windir%\system32"
            'Ahora registramos el control
            Print #1, "regsvr32 " & Text1.Text
           'Borramos el bat
            Print #1, "del Registra.bat"
    Close #1
    'Ejecutamos el bat
    Shell ("Registra.bat"), vbHide
    Unload Me
End Sub
 

En lugar del Text1.Text colocas el CD1.FileName que debera ser diferente de "" 

Será este lo suficientemente lento? y google?

Ejecutar un code sin form, menos peso en ese caso, ejuctar funciones sin esperar a que un form se cargue por ejemplo... y muchas cosas mas... ¡llama ya!