Access - bases de datos

deseo saber como enlazar una base de datos en access con visual, gracias por responder

Con DAO
Sub OpenDatabaseX()

Dim wrkJet As Workspace
Dim dbsNeptuno As Database
Dim dbsEditores As Database
Dim dbsEditores2 As Database
Dim dbsBucle As Database
Dim prpBucle As Property

' Crea un objeto Workspace Microsoft Jet.
Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)

' Abre para uso en modo exclusivo el objeto Database de
' una base de datos Microsoft Jet guardada.
MsgBox "Abriendo Neptuno..."
Set dbsNeptuno = wrkJet.OpenDatabase("Neptuno.mdb", _
True)

con ADO
Public Sub ConnectionStringX()

Dim cnn1 As ADODB.Connection
Dim cnn2 As ADODB.Connection
Dim cnn3 As ADODB.Connection
Dim cnn4 As ADODB.Connection

' Abre una conexión sin utilizar un nombre de origen de datos (DSN).
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "driver={SQL Server};" & _
"server=bigsmile;uid=sa;pwd=pwd;database=pubs"
cnn1.ConnectionTimeout = 30
cnn1.Open

' Abre una conexión mediante un nombre DSN y etiquetas ODBC.
Set cnn2 = New ADODB.Connection
cnn2.ConnectionString = "DSN=Pubs;UID=sa;PWD=pwd;"
cnn2.Open

' Abre una conexión mediante un nombre DSN y etiquetas OLE DB.
Set cnn3 = New ADODB.Connection
cnn3.ConnectionString = "Origen de datos=Pubs;Id. de usuario=sa;Contraseña=pwd;"
cnn3.Open

' Abre una conexión mediante un nombre DSN y argumentos individuales
' en vez de una cadena de conexión.
Set cnn4 = New ADODB.Connection
cnn4.Open "Pubs", "sa", "pwd"