rsReporte.Open "Select a.CodEst, a.Nombre, a.apellido, b.valor, b.descripcion, b.otro AS Nivel From estudiantes a, valores b Where a.codest='" & VariableEstudiante & "' and b.codValor=" & Seleccion & "", Cnx, adOpenStatic, adLockReadOnly