[VB6] Como realizar una conexion a una BD de access 97 sin usar el “Data”

Agregamos la Referencia: “Microsoft ActiveX Data Objects 2.6 Library a nuestro proyecto. Declaramos una variable global de tipo “Connection”:

Dim cnn As Connection

Y en el evento principal del Form Load declaramos lo siguiente:

Set cnn = New Connection
cnn.Open “PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=” & App.Path & “\bd1.mdb”

Donde “bd1.mdb” es el nombre de la base de datos, dicho archivo debe estar en el mismo directorio del proyecto de vb6.