Hola, tengo un problema aquí con un código, quiero hacer una consulta que dependiendo el escalafón del docente me traiga cuanto gana la hora, los datos están en tablas diferentes.
explico un poco en una tabla yo guardo los datos de los docentes y hay un campo que se llama escalafon_docente, por otro lado tengo una tabla que se llama aportes docentes y el nombre del campo es igual (escalafón _docente) y en otro campo tengo cuanto gana cada uno por hora. Entonces yo quisiera que dependiendo de el escalafón, doy un ejemplo: auxiliar docente cobra 10000 que esos datos al yo consultar me los traiga dependiendo el escalafón

Código:

Dim consulta
consulta = InputBox("Por favor ingrese la cedula que desea consultar:", "buscar registros")
Adodc1.Refresh
If consulta <> Empty Then
    Adodc1.Recordset.Filter = ("ced_docente = '" & consulta & "'")
      If Adodc1.Recordset.EOF Then
          Label8 = Adodc1.Recordset.Fields!ced_docente
            Label74 = Adodc1.Recordset.Fields!nom_docente
            Label75 = Adodc1.Recordset.Fields!ape_docente
             Label76 = Adodc1.Recordset.Fields!eb_docente
           If Label77 = Adodc1.Recordset.Fields!escalafon_docente Then
          Adodc7.Refresh
          
              Adodc7.Recordset.Filter = (" escalafon_docente = '" & consulta & "'")
            
            Label37 = Adodc7.Recordset.Fields!bshora_apdoc
            
        Exit Sub
  
   MsgBox "Registro encontrado con exito", vbInformation, "Consulta satisfactoria"
       End If

Exit Sub
End If
 End If
End Sub