madern respondió:
No sé si te va a servir de algo, pero en lugar de utilizar Currentdb. Execute utiliza: dim wks as workspace Dim dbs as database set wks=dbengine.createWorksPace(NombreWKS,NombreUsuario,Password) set dbs=wks.Opendatabase(RutaBd) wks.beginTrans...