Buscar Nome do Banco de Dados

Olá, tenho uma rotina no access que se o banco de dados ficar mais de um tempo rodando, faço o Terminate do Acess com o código abaixo:

Sub FECHAR_ACCESS()
Dim W As Object
Dim ProcessQuery As String
Dim processes As Object
Dim process As Object

Set W = GetObject("winmgmts:")
ProcessQuery = "SELECT * FROM win32_process Where Name = 'MSACCESS.EXE'"
Set processes = W.execquery(ProcessQuery)

For Each process In processes
If process.Name = "MSACCESS.EXE" Then
On Error Resume Next
process.Terminate
On Error GoTo 0
End If
Next process
End Sub

Gostaria de saber se antes de fazer o terminate, se tem como pegar no nome do Banco de Dados que está aberto antes de fechá-lo ("Banco_de_dados.accdb" por exemplo).

Obrigado pela ajuda.

Olá Alessandro,

Voce pode utilizar:

CurrentProject.Path &"\" & CurrentProject.Name


É isso!
[]'s
FIM

Me desculpe, acabei esquecendo de mencionar. Tenho um access que fecha outros access, e precisava saber o nome do BD que o terminate está fechando pelo próprio Win32.
Já tentei usar:
process.ID
process.ProcessId
process.CSName
etc

Mas ainda não consegui achar o nome do BD.

Você está a matar um processo (Win32_Process) não está a matar um nome de um banco.