RE:codigo fuente para la opcion consultar en visul
Hola la verdad debes ser un poco mas preciso en tu consulta, si lo que quieres es realizar una consulta atravez de una base de datos debes definir primero la conexion a la misma, cuando tengas esta simplemente declaras una variable de tipo recordset y la llamas de la siguiente manera:
dim rs As ADODB.Recordset 'si la declaras local y Public rs As ADODB.Recordset
si la quieres visualizar desde cualquier parte
set rs=conexion.execute("Select campo1, campo2, campo3 from tabla where campo= criterio")
esta es la estructura basica de un consulta, si gustas enviame al correo un poco mas especificado que es lo que realmente quieres hacer y gustosamente te colaboro, si estas en colombia me puedes ubicar en el celular 3004248594 y con el mayor de los gustos te colaboro