Prueba con "adOpenDynamic"... una pregunta: lo que quieres es que se refleje en el programa 2 los cambios que haces desde el programa 1 SIN TENER QUE DARLE CLIC AL BOTON DE CONSULTA?, para eso debes tener un TIMER que ejecute cada "X" segundos la rutina de consulta, seria algo asi:
Código vb:
Ver originalPrivate Sub Timer_Timer()
cmdConsulta_Click
End Sub
El timer con un interval=3000 (cada 3 segundos), ejecuta la consulta. El CODE que te mostré abre un nuevo recordset cada vez que se da clic y cierra el mismo al final de la rutina. Si vas a necesitar los datos del recordset fuera de la rutina, debes declarar el recordset como publico