¿Como puedo saber la carpeta donde se ha grabado el ejecutable de access, es
decir, si yo tengo una base de datos que se llama    prueba.mdb y la grabo
en la carpeta ACCESS\ como puedo averiguar la carpeta access
el total de la direccion es access\prueba.mdb
gracias.

Responde Happy en dos partes:
=============================
De momento dare esta solucion (a lo mejor es una solucion muy complicada, no
se...).

'Llamar a la funcion pasandole como parametro el
'nombre de la tabla a analizar
'Para Access 2000 y Access XP
Function ExtraerRutaVinculacion(NombreTabla) As String
Dim Vinculacion As String
Dim VinculacionSinBD As String
Dim RutaVinculacion As String

  'Extraemos la cadena de vinculacion
  Vinculacion = CurrentDb.TableDefs(NombreTabla).Connect

  If Vinculacion <> "" Then
    'Extraemos el nombre de la bd
    VinculacionSinBD = Left(Vinculacion, InStrRev(Vinculacion, "\") - 1)
    'Extraemos caracteristicas de vinculacion
    RutaVinculacion = Right(VinculacionSinBD, Len(VinculacionSinBD) -
InStrRev(VinculacionSinBD, "="))

    ExtraerRutaVinculacion = RutaVinculacion
  End If

End Function

Como no me ha quedado muy clara la pregunta, doy varias soluciones

Si lo que se quiere es saber la ruta del ejecutable de Access, esta
instruccion pondria en la variable "RutaEjecutable" ese valor

    RutaEjecutable = Application.SysCmd(acSysCmdAccessDir)

si quieres conocer la ruta de la base de datos actual

    'para Access 2000 y XP
    CurrentProject.Path

    'para Access 97
    Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)) - 1)

si quieres conocer el nombre de la base de datos

    'para Access 2000 y XP
    CurrentProject.Name

    'para Access 97
    Dir(CurrentDb.Name)

otra cosa, tanto si trabajas con ADO, como con DAO, puedes utilizar
CurrentProject o CurrentDb, ya que ambos pertenecen al objeto Application
(es decir, a la libreria Microsoft Access Object Library - CurrentProject a
partir de la version 9.0).