Visual Basic - Conectar Access con VB6

Public Cn As New ADODB.connection

Public sub Conextion()

sql = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;Persist Security Info=False; DATA SOURCE=" & App.Path & "\nombre de la base de datos.mdb"

If Cn.State = adStateClose Then

   Cn.Open sql

End If

End sub

Option Explicit

Global Datos As Database

Sub Abro_Datos()

    Set Datos = opendatabase(App.Path & "\prueba.mdb")

End Sub

Sub Cierro_datos()

    Datos.Close

End Sub

Public Sub Conextion()

sql = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;Persist Security Info=False; DATA SOURCE=" & App.Path & "\prueba.mdb"

If Cn.State = adStateClose Then

   Cn.Open sql

End If

End Sub

'Para que funcione, debe primero declarar el App.Path como string,

'Compara el código.

Dim ConBD As String

Dim strDBpath, strRutaDB As String

strRutaDB = App.Path & "\DATOS.mdb" 'Lo hacemos así para que funcione.

ConBD = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " & strRutaDB & "; Jet OLEDB:Database"""

Dim BD As ADODB.Connection

Dim RS As ADODB.Recordset

'Crear los objetos

Set BD = New ADODB.Connection

Set RS = New ADODB.Recordset

'Abrir base de datos

BD.Open ConBD

'Consultamos  la tabla Contactos. Orden por id

RS.Open "SELECT * FROM Contactos ORDER BY id", BD, adOpenDynamic, adLockOptimistic