SoloCodigo

Usa la clausula UNION de SQL, esto te permite justamente unir dos o mas consultas en una sola.
Estoy seguro que con el UNION vas a poder realizar la consulta que quieres, pero de lo que no estoy seguro es como lo aplicarias, segun la idea que tengo al abrir el RecordSet podrias hacer esto

AdoAlParAlu.Open "SELECT campos FROM tabla IN DB1'" & “ Union “ & "SELECT campos FROM tabla IN DB2'", db, adOpenDynamic, adLockOptimistic

Si no te da resultado te quedaria buscarlo en internet. Pero lo si te aseguro es que tienes que hacer uso del UNION eso no me cabe la menor duda.
Suerte..

Acabo de hacer una aplicacion que creo tiene lo buscas.
Aqui te lo dejo.
Saludos...

Aqui va el codigo:

Aqui te envio un pequeño chat monousuario y una aplicacion que te permite enviar correos por visual basic
Ambos estan en el Zip.
Espero te sea util.
Suerte...

Conozco un API que justamente te permitira realizar el bloqueo del teclado.
El codigo es el siguiente:
Private Const SPI_SCREENSAVERRUNNING = 97&
Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" _
        (ByVal uAction As Long, ByVal uParam As Long, _
        lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub cmddeshabilitar_Click()
    Dim lngRet As Long
    Dim blnOld As Boolean
    lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
                  True, blnOld, 0&)

End Sub

Private Sub cmdhabilitar_Click()
    Dim lngRet As Long
    Dim blnOld As Boolean
    lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
                  False, blnOld, 0&)
End Sub


Private Sub Form_Unload(Cancel As Integer)
Call cmdhab_Click
End Sub

Ahora que solo lo he probado en mi computador que tiene WME, espero que en el sistema operativo que tienes instalado funcione.
Suerte...
Giomar

Hola
Lo siento si te hice pasar un mal rato es que la verdad si lei tu mensaje y te lo agradeci, pero por una equivocación de mi parte (la verdad es que no se como paso) me confundi de usuario.
Nuevamente disculpas espero que no haiga recentimientos.
Giomar...

Hola "MiguelPG"
Me parece muy buena tu ayuda y voy a poner en practica.
Si tengo algun problema te lo hare saber.
Muchas gracias!

Para aquellas aplicaciones donde quiero que se muestre una ventana Abrir o Guardar hago uso del control CommonDialog.
Ahora si deseas que aparesca el nombre de un archivo por defecto al llamar a la ventana Abrir, tienes que hacer uso de su propiedad FileName, por ejemplo
CommonDialog1.FileName = "C:WindowsEscritorioDocumento.txt"
Aqui se le indica la ruta del archivo que deseas que se muestre por defecto.
Luego se indica que tipo de ventana se deseas utilizar: CommonDialog1.ShowOpen (ventana abrir)
Para tener en cuenta:
Si deseas especificar que solo se muestren por ejemplo documentos Word  
ingresa la siguiente linea de codigo antes de llamar a la ventana: CommonDialog1.Filter = "todos los archivos de texto|*.doc"
he incluso puedes cambiar el titulo de la ventana: CommonDialog1.DialogTitle = "Nuevo titulo"
Entre otras cosas.
Ha me olvidaba para activar este control tienes que ir a la opción Componentes.. del menu Proyecto y en la ventana marcar la opción Microsoft Common Dialog Control 6.0 (SP3)
Bueno espero que te sirva de algo lo que te he comentado.
Un saludo...
<Giomar>

Hola mi nombre es Giomar:
Quisiera saber como puedo enviar y recibir correos desde una aplicacion de Visual Basic y si es posible sin utilizar DLL o OCX.
Me ayudarias bastante si el código o aplicación que recibire esta explicado ya que mi finalidad es la de aprender a desarrollar este tipo de aplicación.