Visual Basic para Aplicaciones - ABRIR UN ARCHIVO DE ACCES

NECESITO UN CÓDIGO EN VISUAL BASIC, QUE ME PERMITA ABRIR UN ARCHIVO DE MICROSOFT ACCES DESDE MI APLICACIÓN!

ARCHIVO: "C:\DATABASE.mdb"

Primero ir a Referencias y seleccionar
Microsoft AxtiveX Data Object 2.1 Library

luego en un formulario o en un modulo dijitar lo siguiente

el siguinete código digamos que esta en un modulo

Dim AdoConexion As ADODB.Connection

Public Sub AdoConecta ()
Set AdoConexion = New ADODB.Connection

AdoConexion.Open "Provider=Microsoft.jet.oledb.4.0; " & _
"Data Source = C:\Archivos de Programa\Sac\dbsac.mdb"

End Sub

Colocar el nombre de la subrutina AdoConecta en cualquier formulario para la llamada de procedimiento