Dim proc As Process = New Process()
Dim procInfo As ProcessStartInfo = New ProcessStartInfo()
procInfo.Arguments = " " + If("/K", "/C") + " " + "c:\Program Files\Oracle\VirtualBox\VBoxManage.exe" + " " + "list vms"
procInfo.FileName = "cmd.exe"
procInfo.UseShellExecute = False
proc.StartInfo = procInfo
proc.Start()

 'path = System.Environment.GetEnvironmentVariable("ProgramW6432")
            'fullPath = System.Environment.GetEnvironmentVariable("ProgramW6432").ToString & "\Oracle\VirtualBox>VBoxManage.exe"

$result=preg_match_all("/(<FORMULARIO>.*?<\/FORMULARIO>.*?)/s", $datos2, $archivos);

switch ($tabla){

/////////////buscar en tabla 1////////////////
case 1:
if($parte=='')
{
	echo "<script>alert('debe ingresar al menos un nombre para realizar la busqueda')</script>";
}else{ 	
	$conn = mysql_connect($dbhost, $dbuser, $dbpass) or die ('Error connecting to mysql');

	mysql_select_db($dbname, $conn);

	$sql = "SELECT * FROM tabla1 WHERE partes like '%".$parte."%' and year= $year";
	$result = mysql_query($sql, $conn);
                       
                        /// esta parte llama al codigo q genera la tabla ///
			include("while/indice1.php");
			mysql_free_result($result); 

			mysql_close();
}
break;

/////////////buscar en tabla 2////////////////
case 2:
if($parte=='')
{
	echo "<script>alert('debe ingresar al menos un nombre para realizar la busqueda')</script>";
}else{ 	
	$conn = mysql_connect($dbhost, $dbuser, $dbpass) or die ('Error connecting to mysql');

	mysql_select_db($dbname, $conn);

	$sql = "SELECT * FROM tabla2 WHERE partes like '%".$parte."%' and year= $year ";
	$result = mysql_query($sql, $conn);

			/// esta parte llama al codigo q genera la tabla ///
                        include("while/indice2.php");
			mysql_free_result($result); 

			mysql_close();
}
break;

$sql = "SELECT * FROM tabla2 WHERE partes like '%".$parte."%' and year= $year ";

conn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=J:\Bases_Datos\db_foro.mdb")

Server.MapPath( Ruta )