Update em duas tabelas ao mesmo tempo

Galera, estou com o seguinte problema:

Tenho duas tabelas Notas do 1° bimestre (tbNotas1) e Notas do 2° bimestre (tbNotas2). Pois bem, preciso pegar as médias do 1° e 2° bimestre e comparar com um 3ª nota que é a Reav. Semestral. Se esta nota for maior que qq uma das duas, devo substituir a média pela Reav. Todo o processo de pegar as notas e comparar está feito. Montei uma sql:

SQL = "SELECT B1.Registro, B2.Registro, " & _
    "B1.Mat01Nota04, B2.Mat01Nota04, B2.Mat01Nota09, " & _
    "B1.Mat02Nota04, B2.Mat02Nota04, B2.Mat02Nota09, " & _
    "B1.Mat03Nota04, B2.Mat03Nota04, B2.Mat03Nota09, " & _
    "B1.Mat04Nota04, B2.Mat04Nota04, B2.Mat04Nota09, " & _
    "B1.Mat05Nota04, B2.Mat05Nota04, B2.Mat05Nota09, " & _
    "B1.Mat06Nota04, B2.Mat06Nota04, B2.Mat06Nota09, " & _
    "B1.Mat07Nota04, B2.Mat07Nota04, B2.Mat07Nota09, " & _
    "B1.Mat08Nota04, B2.Mat08Nota04, B2.Mat08Nota09, " & _
    "B1.Mat09Nota04, B2.Mat09Nota04, B2.Mat09Nota09, " & _
    "B1.Mat10Nota04, B2.Mat10Nota04, B2.Mat01Nota09, " & _
    "B1.Mat11Nota04, B2.Mat11Nota04, B2.Mat11Nota09 " & _
    "FROM tbNotasB1 as B1, tbNotasB2 as B2 " & _
    "WHERE B1.Registro ='" & rsAlunos!Registro & "' AND B2.Registro = '" & rsAlunos!Registro & "'"

Note que a Nota9 é a Reav.

e mais:

With rsMedias
                ''MD 1° Bim
                If IsNumeric(.Fields(i)) Then
                    MD1 = CDbl(Replace(.Fields(i), ".", ","))
                End If
                ''MD 2° Bim
                If IsNumeric(.Fields(i + 1)) Then
                    MD2 = CDbl(Replace(.Fields(i + 1), ".", ","))
                End If
                ''Reav. Semestral
                If IsNumeric(.Fields(i + 2)) Then
                    RES = CDbl(Replace(.Fields(i + 2), ".", ","))
                End If

                If RES > MD1 Then
                    .Fields(i) = Format(RES, "0.0") '' Muda média do 1o bim pela Reav. Semestral
                End If
                If RES > MD2 Then
                    .Fields(i + 1) = Format(RES, "0.0") '' Muda média do 2o bim pela Reav. Semestral
                End If
                rsMedias.Update

Entretanto na hora de dar o update ele dá a seguinte mensagem:

insufficient base table information for updating or refreshing.

Acho que o problema está em atualizar a tabela do 1° bim e a do 2° juntas, mas não faço a mínima idéia.

Por favor me ajudem