Private Sub Form_Load()
    Dim rst As Object
    Set rst = CreateObject("ADODB.Recordset")
    
    rst.CursorLocation = 3
    rst.Open "SELECT Table1.Name, Table1.Age, Education.Education " & _
             "FROM Table1 INNER JOIN Education ON Table1.Education = Education.id;", _
              CurrentProject.Connection, 3, 4
    Set rst.ActiveConnection = Nothing
    Set Me.Form.Recordset = rst
    Me.Form.UniqueTable = "Table1"
    'r.Close
    Set rst = Nothing
End Sub

Private Sub MoveBtn_Click()
    Dim f As Object
    With Me.subform1.Form.Recordset
        .MoveFirst
        Do Until .EOF
            For Each f In .Fields
                Debug.Print f.Name, f.Value
            Next f
            .MoveNext
        Loop
    End With
End Sub