Lllamada a Access que no se cierra

[Urko56]

Hola de nuevo,
desde mi aplicación de VB 2005 hago una llamada a access para abrilo y de esta forma habilitar su modulo de consultas.
El proble es que luego no se cierra, si me voy al 'administrador de tareas', veo que se van quedando ahi todas las llamadas, aunque se cierre access correctamente.
El código que utilizo es este:

Código:

Imports Microsoft.Office.Interop
Module mdConsultas
    Public Sub ConsultaAccess()
        'Static oAccess As Access.Application
        Dim oAccess = New Access.Application
        Try
            oAccess = CreateObject("Access.Application")
            With oAccess
                .Visible = True
                .OpenCurrentDatabase(bdConsultas)
            End With
        Catch
            oAccess.Quit()
            oAccess = Nothing
        End Try
    End Sub
End Module

¿como hago para que al cerrar la aplicación de access abierta desde este código, me desaparezca todo alusión a access, ya que me va comiendo memoria inutilmente.

Gracias

[meula]

Hola,
Prueba a matarlo accediendo directamente a los procesos de windows a través de WMI, en google hay bastante documentación, aquí tienes un enlace, saludos.

http://www.recursosvisualbasic.com.a...l-basic/14.htm

[Dradi7]

prueba esto agregando al final del try

Código:

                    ' Reduciendo el Consumo de Memoria de la Coleccion Com de Nuestro Objeto
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(oAccess)

                    GC.Collect()                    ' Obliga q se lleve a Cabo la recoleccion de elementos y vaciarlos
                    GC.WaitForPendingFinalizers()   ' Suspende el Subproceso Actual hasta q se suspenda el otro SubProceso

esto no matara el proceso al instante sino q dependera del proceso q lo llamo es decir q se cerrara el proceso hasta q mate al proceso padre q lo llamo - cuando cierras tu formulario o tu aplicacion

[Urko56]

Miraré ambas posibilidades con calma.

De momento lo he resuelto (o eso creo al menos) con un 'shell'

Código:

            Shell("C:\Archivos de programa\Microsoft Office\OFFICE11\msaccess.exe " & bdConsultas, AppWinStyle.NormalFocus)

Puede parecer un tanto chapucero, pero funciona

Gracias y un saludo