Conexión de Visual Basic 6 con Access 2010

Escenario

Sistema Operativo: Windows 7 Enterprise
Lenguaje de Programación: Visual Basic 6.0
Base de Datos: Access 2010
Acceso a datos: Microsoft ADO 2.8 Library

Nombre de la base de datos: bd.accdb
Clave de la base de datos: 12345

Implementación

1. Referenciar en Visual Basic: Microsoft Activex Data Objects 2.8 Library
2. Escribir el siguiente código:

Dim Cn As New ADODB.Connection
Cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\bd.accdb;Jet OLEDB:Database Password=12345;"
Cn.Open Cn.ConnectionString, "admin", ""