Realizo una conexión ADO.NET con access de la siguiente manera:
BDTabla = New OleDbDataAdapter(SeleccionSQL, "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Ruta & Directorio & "director.mdb")
Dim CTabla As New OleDbCommandBuilder(BDTabla)
CTabla.QuotePrefix = "["
CTabla.QuoteSuffix = "]"
BDTabla.UpdateCommand = CTabla.GetUpdateCommand
BDTabla.InsertCommand = CTabla.GetInsertCommand
BDTabla.DeleteCommand = CTabla.GetDeleteCommand
TTabla = New DataTable
BDTabla.Fill(TTabla)
El código lo saqué de "El Guille".
El tema es que en un momento necesito cerrar la consulta para poder compactar la BD. No sé como hacerlo.

Saludos

Diego