No tengo mucha experiencia pero en los programas que he desarrollado que manejan bases de datos utilizo la funcion Opendatabase() para abrir la base de datos y luego ejecuto sentencias SQL.
Private Sub Command1_Click()
Dim base_datos as Database
Dim consulta as Recordset
Set base_datos = Opendatabase(ruta)
base_datos.execute(sentencia_SQL) ' Se utiliza para Insert, Delete y Update
Set consulta=base_datos.openrecordset(sentencia_SQL) ' Se utiliza para SELECT
base_datos.close
End Sub
En sentencia_SQL acomodas los textbox y ya. Espero te sirva.
