odbc

[aigama]

Yo tengo una conexión hecha. Te mando el código, espero que te sirva...
Set ws = CreateWorkspace("", "admin", "", dbUseJet)
Set db = ws.OpenDatabase(App.Path & "\Datuak_DB.mdb", False, False)

siendo "\Datuak_DB.mdb" el nombre de tu base de datos. Los últimos dos false, no son necesarios. Si no los pones la conexión debería de funcionar del mismo modo.
Para que la conexión funcione luego debes configurarla en el panel de control>herramientas administrativas>origenes de datos (ODBC)>agregar
Si la base de datos es de tipo acces, tienes que escoger Microsoft Access driver .mdb
Espero que con esto ya te funcione