OpenDatabase no reconoce la dirección de la base de datos

[Allan_Mo]

Amigos ayuda por favor.

Estoy tratando de abrir dos bases de datos access 97 simultaneamente y lo estoy haciendo de la siguiente manera:

AConect = "ODBC;UID=administrator;PWD=Dato123"
BConect = "ODBC;UID=administrator;PWD=Dato123"

Set AWrk = CreateWorkspace("BDMA001", "administrator", "", dbUseODBC)
Set BWrk = CreateWorkspace("PERSONAS", "administrator", "", dbUseODBC)

Workspaces.Append AWrk
Workspaces.Append BWrk

Set Base_de_datos1 = AWrk.OpenDatabase("BDMA001", dbDriverNoPrompt, False, lstConect)
Set Base_de_datos2 = BWrk.OpenDatabase("PERSONAS", dbDriverNoPrompt, False, BConect)

Sucede que las dos bases de datos estan en la misma carpeta donde esta el programa, pero solo me reconce la que se llama BDMA001 y la de PERSONAS no.

es muy extraño ya que intento hacerlo de la siguiente manera:

Set Base_de_datos1 = AWrk.OpenDatabase(App.Path & "\BDMA001.mdb", dbDriverNoPrompt, False, lstConect)
Set Base_de_datos2 = BWrk.OpenDatabaseApp.Path & "\PERSONAS.mdb", dbDriverNoPrompt, False, BConect)

pero en ese caso no ecuentra a ninguna de las bases de datos, cuando en teoria segun creo deberia encontrarlas

nisiquiera me explico porque cuando lo hago asi:


Set Base_de_datos1 = AWrk.OpenDatabase("BDMA001", dbDriverNoPrompt, False, lstConect)

si encuentra y abre la BDMA001, si solo se le esta dando el nombre y no la dirección.

Agredezco cualquier ayuda posible ya que tengo mucho tiempo pegado en este detalle

De antemano Gracias a todos.

[Allan_Mo]

Uy que pena!!
Ya esta resuelto, era un asunto de DNS.
Lo deje por un día, y luego con una mente más fresca lo resolví.