rafael dornelas

Eu vou te dar a logica do que você precisa fazer. Se não conseguir montar eu te mando o fonte completo.
 

Dim Letra As String = Application.StartupPath
        Dim TratamentoScring As String() = Letra.Split(New Char() {"\"c})
        Letra = TratamentoScring(0) & "/"
        Dim ParaExecultar = GetFiles(Letra)

Private Function GetFiles(ByVal pathFolder As String) As ArrayList
        Dim returnFiles As ArrayList = New ArrayList
        Dim dirInfo As DirectoryInfo = New DirectoryInfo(pathFolder)
        If dirInfo.Exists Then
            Dim filesInfo As FileSystemInfo() = dirInfo.GetFileSystemInfos
            For Each fil As FileSystemInfo In dirInfo.GetFileSystemInfos("*.exe")
                returnFiles.Add(fil.FullName)
                If fil.Attributes = FileAttributes.Directory Then
                    returnFiles.AddRange(GetFiles(fil.FullName))
                End If
            Next
        End If
        Return returnFiles
    End Function

depois só fazer o tratamento ai para executar a lista dos exe que ficaram armazenados em ParaExecultar 

Enviar a mensagem para outro programa ficou complicado de entender.

Para começar isto é muito porco.
Primeira coisa que você deve fazer é uma consulta (view).
Fazendo assim as três tabelas virarem um.
depois disto você conecta a aplicação VB ao access e com um simples select no view criado terá teu retorno.

Imports System.Runtime.InteropServices

Public Class Form1
    Private Const MONITOR_DESLIGA As Integer = 2
    Private SC_MONITORENERGIA As Integer = &HF170
    Private WM_COMANDOSISTEMA As Integer = &H112
    <DllImport("user32.dll", SetLastError:=True)>
    Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    End Function
    <DllImport("user32.dll")>
    Private Shared Function SendMessage(ByVal hWnd As Integer, ByVal hMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TurnOffLCD()
    End Sub
    Public Sub TurnOffLCD()
        Dim num As Integer = 0
        num = SendMessage(FindWindow(Nothing, Nothing).ToInt32, Me.WM_COMANDOSISTEMA, Me.SC_MONITORENERGIA, 2)
    End Sub
End Class
 

Este modem tem uma falha de segurança onde é possível descobrir a senha do Admin não importa qual senha seja.

se por exemplo o ip do teu roteador seja 10.1.1.1 coloque assim no teu navegador http://10.1.1.1/password.cgi. olhe o código fonte desta pagina e busque por:
pwdAdmin = 'senhadorouter';
pwdSupport = 'senhadorouter';
pwdUser = 'senhadorouter';

ai verá a senha do roteador.