Una Forma sencilla es:
Sub Abre_BD()
On Error GoTo ErrorBD
Set BD_con = New ADODB.Connection
BD_con.CursorLocation = adUseClient
BD_con.Open "Provider=Microsoft.jet.OLeDB.4.0;Data Source=" & App.Path & "\ARCHIVO.mdb;" & "Jet OLEDBatabase Password=CLAVE"
Exit Sub
ErrorB
MsgBox ("Asegurese que el Servidor este Conectado")
End
End Sub

Sub Abre_Registros()
Set Clientes_rs = New Recordset
Clientes_rs.Open "NOMBRE_DE_LA_TABLA", BD_con, adOpenDynamic, adLockOptimistic
End Sub

Sub Buscar()
StrSql = "select Id,Nombre from NOMBRE_DE_LA_TABLA"
Adodc1.ConnectionString = BD_con
Adodc1.RecordSource = StrSql
Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1
End Sub

Mas Claro imposible, el Abre_Registros te sirve si quieres hacer un ABM (Alta, Baja, Modificacion) de los datos.
Ej: Agregar Nuevo Registro:
Clientes_rs.AddNew
Clientes_rs.Fields("Nombre") = Text1.Text
Clientes_rs.Save
Ej: Modificar Registro;
Clientes_rs.Fields("Nombre") = Text1.Text
Clientes_rs.Update
Ej: Borrar Registro;
Clientes_rs.Delete
Para Modificar y Borrar tenes que estar Posicionado sobre el Registro a hacer estas acciones.