14/06/2006, 05:51
|
 | | | Fecha de Ingreso: junio-2006 Ubicación: Buenos Aires, Argentina
Mensajes: 53
Antigüedad: 18 años, 10 meses Puntos: 0 | |
| proba con esto
Call Conexion
rsbuscar(0).Open "SELECT DISTINCT nivel,nombregrupo From partesdelequipo ORDER BY nivel", cnn, adOpenStatic, adLockOptimistic
grupop.Text rsbuscar(0)("nombregrupo")
While Not rsbuscar(0).EOF
grupop.AddItem rsbuscar(0)("nombregrupo") rsbuscar(0).MoveNext
Wend
Call cerrarcnn
espero que te sirva
saludos |